home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1995-11-21 | 71.1 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 44 10 9f e5 3c 20 9f e5 | 34 30 9f e5 04 00 12 e4 |D...< ..|40......|
|00000010| 04 00 03 e4 04 10 51 e2 | fb ff ff 5a 00 00 8f e2 |......Q.|...Z....|
|00000020| 05 00 00 ef 42 41 53 49 | 43 20 2d 51 75 69 74 20 |....BASI|C -Quit |
|00000030| 40 30 30 30 30 39 30 30 | 30 2c 30 30 30 31 41 43 |@0000900|0,0001AC|
|00000040| 33 34 00 41 34 ac 01 00 | 84 9c 01 00 34 1c 01 00 |34.A4...|....4...|
|00000050| 0d 00 0a 1d 20 f4 20 3e | 24 2e 21 44 5f 54 75 72 |.... . >|$.!D_Tur|
|00000060| 74 6c 65 2e 21 52 55 4e | 49 4d 41 47 45 0d 00 1e |tle.!RUN|IMAGE...|
|00000070| 15 20 c8 99 22 48 6f 75 | 72 67 6c 61 73 73 5f 4f |. .."Hou|rglass_O|
|00000080| 6e 22 0d 00 28 35 20 f2 | 64 65 66 69 6e 65 3a f2 |n"..(5 .|define:.|
|00000090| 66 69 6e 64 5f 64 69 6d | 65 6e 3a f2 64 65 66 69 |find_dim|en:.defi|
|000000a0| 6e 65 32 3a f2 73 65 74 | 75 70 33 3a f2 73 65 74 |ne2:.set|up3:.set|
|000000b0| 75 70 5f 68 65 6c 70 0d | 00 32 29 20 f2 73 74 61 |up_help.|.2) .sta|
|000000c0| 72 74 75 70 5f 6d 65 6d | 3a f2 69 6e 69 74 69 61 |rtup_mem|:.initia|
|000000d0| 6c 69 73 65 3a f2 67 72 | 61 62 5f 73 65 74 75 70 |lise:.gr|ab_setup|
|000000e0| 0d 00 3c 24 20 ee 20 85 | 20 e7 20 a4 77 69 6d 70 |..<$ . .| . .wimp|
|000000f0| 65 72 72 6f 72 20 c8 98 | 20 8b 20 f2 65 72 72 6f |error ..| . .erro|
|00000100| 72 3a c8 98 0d 00 46 2e | 20 f2 73 70 72 73 28 73 |r:....F.| .sprs(s|
|00000110| 70 72 69 74 65 73 5f 70 | 61 74 68 24 29 3a f2 73 |prites_p|ath$):.s|
|00000120| 70 72 73 6d 65 6e 75 28 | 73 70 72 73 6d 65 6e 75 |prsmenu(|sprsmenu|
|00000130| 25 29 0d 00 50 30 20 f2 | 73 6f 75 6e 64 73 28 73 |%)..P0 .|sounds(s|
|00000140| 6f 75 6e 64 5f 70 61 74 | 68 24 29 3a f2 73 6f 75 |ound_pat|h$):.sou|
|00000150| 6e 64 6d 65 6e 75 28 73 | 6f 75 6e 64 6d 65 6e 75 |ndmenu(s|oundmenu|
|00000160| 25 29 0d 00 64 43 20 f2 | 70 61 6c 69 6e 69 74 3a |%)..dC .|palinit:|
|00000170| 69 62 61 72 31 25 3d a4 | 69 63 6f 6e 64 65 66 28 |ibar1%=.|icondef(|
|00000180| 2d 31 2c 30 2c 30 2c 36 | 38 2c 36 38 2c 26 33 30 |-1,0,0,6|8,68,&30|
|00000190| 30 32 2c 22 21 44 5f 54 | 75 72 74 6c 65 22 2c 30 |02,"!D_T|urtle",0|
|000001a0| 2c 30 2c 30 29 0d 00 78 | 18 20 c8 99 22 48 6f 75 |,0,0)..x|. .."Hou|
|000001b0| 72 67 6c 61 73 73 5f 53 | 6d 61 73 68 22 0d 00 82 |rglass_S|mash"...|
|000001c0| 04 0d 00 8c 0e 20 63 6c | 6f 73 65 64 25 3d b9 0d |..... cl|osed%=..|
|000001d0| 00 96 1e 20 ee 20 85 20 | e7 20 a4 77 69 6d 70 65 |... . . |. .wimpe|
|000001e0| 72 72 6f 72 20 8b 20 f2 | 65 72 72 6f 72 0d 00 a0 |rror . .|error...|
|000001f0| 06 20 f5 0d 00 aa 2f 20 | 20 e7 20 63 6c 6f 73 65 |. ..../ | . close|
|00000200| 64 25 20 f2 69 63 6f 6e | 62 61 72 77 61 69 74 3a |d% .icon|barwait:|
|00000210| e7 20 71 75 69 74 25 3d | b9 20 f2 71 75 69 74 5f |. quit%=|. .quit_|
|00000220| 69 74 0d 00 ab 0d 20 20 | f2 72 65 67 62 6f 78 0d |it.... |.regbox.|
|00000230| 00 b4 16 20 20 f2 63 68 | 65 63 6b 5f 73 75 69 74 |... .ch|eck_suit|
|00000240| 5f 6d 6f 64 65 0d 00 be | 13 20 20 e7 20 63 6c 6f |_mode...|. . clo|
|00000250| 73 65 64 25 3d a3 20 8c | 0d 00 c8 1d 20 20 20 f2 |sed%=. .|.... .|
|00000260| 6f 70 65 6e 77 69 6e 64 | 6f 77 28 77 68 61 6e 64 |openwind|ow(whand|
|00000270| 6c 65 31 25 29 0d 00 d2 | 35 20 20 20 c8 99 22 57 |le1%)...|5 .."W|
|00000280| 69 6d 70 5f 53 65 74 43 | 61 72 65 74 50 6f 73 69 |imp_SetC|aretPosi|
|00000290| 74 69 6f 6e 22 2c 77 68 | 61 6e 64 6c 65 31 25 2c |tion",wh|andle1%,|
|000002a0| 30 2c 30 2c 2c 2d 31 2c | 2d 31 0d 00 dc 2b 20 20 |0,0,,-1,|-1...+ |
|000002b0| 20 78 30 25 3d 30 3a 79 | 30 25 3d 30 3a 71 75 69 | x0%=0:y|0%=0:qui|
|000002c0| 74 25 3d a3 3a 63 6c 6f | 73 65 64 25 3d a3 3a 65 |t%=.:clo|sed%=.:e|
|000002d0| 6e 64 25 3d a3 0d 00 e6 | 08 20 20 20 f5 0d 00 f0 |nd%=....|. ....|
|000002e0| 0d 20 20 20 20 f2 70 6f | 6c 6c 0d 00 fa 1f 20 20 |. .po|ll.... |
|000002f0| 20 fd 20 71 75 69 74 25 | 20 84 20 63 6c 6f 73 65 | . quit%| . close|
|00000300| 64 25 20 84 20 65 6e 64 | 25 0d 01 04 07 20 20 cd |d% . end|%.... .|
|00000310| 0d 01 18 16 20 20 e7 20 | 71 75 69 74 25 20 f2 71 |.... . |quit% .q|
|00000320| 75 69 74 5f 69 74 0d 01 | 22 3f 20 20 63 6c 6f 73 |uit_it..|"? clos|
|00000330| 65 64 25 3d b9 3a 62 6c | 6f 63 6b 25 21 30 3d 77 |ed%=.:bl|ock%!0=w|
|00000340| 68 61 6e 64 6c 65 31 25 | 3a c8 99 22 57 69 6d 70 |handle1%|:.."Wimp|
|00000350| 5f 43 6c 6f 73 65 57 69 | 6e 64 6f 77 22 2c 2c 62 |_CloseWi|ndow",,b|
|00000360| 6c 6f 63 6b 25 0d 01 2c | 1d 20 20 c8 99 22 57 69 |lock%..,|. .."Wi|
|00000370| 6d 70 5f 43 72 65 61 74 | 65 4d 65 6e 75 22 2c 2c |mp_Creat|eMenu",,|
|00000380| 2d 31 0d 01 36 0c 20 fd | 20 71 75 69 74 25 0d 01 |-1..6. .| quit%..|
|00000390| 40 10 20 f4 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 01 |@. .----|------..|
|000003a0| 4a 0e 20 dd f2 71 75 69 | 74 5f 69 74 0d 01 54 53 |J. ..qui|t_it..TS|
|000003b0| 20 c8 99 22 53 6f 75 6e | 64 5f 52 65 6d 6f 76 65 | .."Soun|d_Remove|
|000003c0| 56 6f 69 63 65 22 2c 2c | 31 30 3a 24 62 6c 6f 63 |Voice",,|10:$bloc|
|000003d0| 6b 25 3d 22 54 41 53 4b | 22 3a c8 99 22 57 69 6d |k%="TASK|":.."Wim|
|000003e0| 70 5f 43 6c 6f 73 65 44 | 6f 77 6e 22 2c 74 61 73 |p_CloseD|own",tas|
|000003f0| 6b 25 2c 21 62 6c 6f 63 | 6b 25 3a c8 98 3a e1 0d |k%,!bloc|k%:..:..|
|00000400| 01 72 10 20 f4 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |.r. .---|-------.|
|00000410| 01 7c 12 20 dd f2 69 63 | 6f 6e 62 61 72 77 61 69 |.|. ..ic|onbarwai|
|00000420| 74 0d 01 86 1d 20 65 6e | 64 25 3d a3 3a 63 6c 6f |t.... en|d%=.:clo|
|00000430| 73 65 64 25 3d a3 3a 71 | 75 69 74 25 3d a3 0d 01 |sed%=.:q|uit%=...|
|00000440| 90 06 20 f5 0d 01 9a 25 | 20 20 c8 99 22 57 69 6d |.. ....%| .."Wim|
|00000450| 70 5f 50 6f 6c 6c 22 2c | 2c 62 6c 6f 63 6b 25 20 |p_Poll",|,block% |
|00000460| b8 20 72 65 61 73 6f 6e | 25 0d 01 a4 12 20 20 c8 |. reason|%.... .|
|00000470| 8e 20 72 65 61 73 6f 6e | 25 20 ca 0d 01 ae 11 20 |. reason|% ..... |
|00000480| 20 20 c9 20 36 3a f2 6d | 6f 75 73 65 0d 01 b8 28 | . 6:.m|ouse...(|
|00000490| 20 20 20 c9 20 38 3a c8 | 99 22 57 69 6d 70 5f 50 | . 8:.|."Wimp_P|
|000004a0| 72 6f 63 65 73 73 4b 65 | 79 22 2c 62 6c 6f 63 6b |rocessKe|y",block|
|000004b0| 25 21 32 34 0d 01 c2 1a | 20 20 20 c9 20 39 3a f2 |%!24....| . 9:.|
|000004c0| 69 63 6f 6e 62 61 72 6f | 70 74 69 6f 6e 73 0d 01 |iconbaro|ptions..|
|000004d0| cc 1c 20 20 20 c9 20 31 | 37 2c 31 38 3a f2 72 65 |.. . 1|7,18:.re|
|000004e0| 63 65 69 76 65 64 61 74 | 61 32 0d 01 d6 07 20 20 |ceivedat|a2.... |
|000004f0| cb 0d 01 e0 13 20 fd 20 | 65 6e 64 25 20 84 20 71 |..... . |end% . q|
|00000500| 75 69 74 25 0d 01 ea 06 | 20 e1 0d 01 f4 11 20 f4 |uit%....| ..... .|
|00000510| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 01 fe 41 20 |--------|---...A |
|00000520| dd f2 69 63 6f 6e 62 61 | 72 6f 70 74 69 6f 6e 73 |..iconba|roptions|
|00000530| 3a 63 68 6f 69 63 65 25 | 3d 21 62 6c 6f 63 6b 25 |:choice%|=!block%|
|00000540| 3a e7 20 63 68 6f 69 63 | 65 25 3d 31 20 f2 76 65 |:. choic|e%=1 .ve|
|00000550| 72 69 66 79 73 68 75 74 | 64 6f 77 6e 0d 02 12 06 |rifyshut|down....|
|00000560| 20 e1 0d 02 1c 10 20 f4 | 2d 2d 2d 2d 2d 2d 2d 2d | ..... .|--------|
|00000570| 2d 2d 0d 02 26 0b 20 dd | f2 70 6f 6c 6c 0d 02 30 |--..&. .|.poll..0|
|00000580| 25 20 c8 99 22 57 69 6d | 70 5f 50 6f 6c 6c 22 2c |% .."Wim|p_Poll",|
|00000590| 30 2c 62 6c 6f 63 6b 25 | 20 b8 20 72 65 61 73 6f |0,block%| . reaso|
|000005a0| 6e 25 0d 02 3a 11 20 c8 | 8e 20 72 65 61 73 6f 6e |n%..:. .|. reason|
|000005b0| 25 20 ca 0d 02 44 10 20 | c9 20 31 3a f2 72 65 64 |% ...D. |. 1:.red|
|000005c0| 72 61 77 0d 02 4e 24 20 | c9 20 32 3a c8 99 22 57 |raw..N$ |. 2:.."W|
|000005d0| 69 6d 70 5f 4f 70 65 6e | 57 69 6e 64 6f 77 22 2c |imp_Open|Window",|
|000005e0| 2c 62 6c 6f 63 6b 25 0d | 02 58 08 20 c9 20 33 0d |,block%.|.X. . 3.|
|000005f0| 02 62 2d 20 20 e7 20 62 | 6c 6f 63 6b 25 21 30 3d |.b- . b|lock%!0=|
|00000600| 77 68 61 6e 64 6c 65 31 | 25 20 f2 73 68 75 74 61 |whandle1|% .shuta|
|00000610| 6c 6c 3a 63 6c 6f 73 65 | 64 25 3d b9 0d 02 6c 43 |ll:close|d%=...lC|
|00000620| 20 20 e7 20 62 6c 6f 63 | 6b 25 21 30 3d 77 68 61 | . bloc|k%!0=wha|
|00000630| 6e 64 6c 65 37 25 3a c8 | 99 22 57 69 6d 70 5f 43 |ndle7%:.|."Wimp_C|
|00000640| 6c 6f 73 65 57 69 6e 64 | 6f 77 22 2c 2c 62 6c 6f |loseWind|ow",,blo|
|00000650| 63 6b 25 3a 68 65 6c 70 | 5f 70 61 67 65 3d 31 0d |ck%:help|_page=1.|
|00000660| 02 76 37 20 20 e7 20 62 | 6c 6f 63 6b 25 21 30 3d |.v7 . b|lock%!0=|
|00000670| 77 68 61 6e 64 6c 65 38 | 25 3a c8 99 22 57 69 6d |whandle8|%:.."Wim|
|00000680| 70 5f 43 6c 6f 73 65 57 | 69 6e 64 6f 77 22 2c 2c |p_CloseW|indow",,|
|00000690| 62 6c 6f 63 6b 25 0d 02 | 80 38 20 20 e7 20 62 6c |block%..|.8 . bl|
|000006a0| 6f 63 6b 25 21 30 3d 77 | 68 61 6e 64 6c 65 36 61 |ock%!0=w|handle6a|
|000006b0| 25 3a c8 99 22 57 69 6d | 70 5f 43 6c 6f 73 65 57 |%:.."Wim|p_CloseW|
|000006c0| 69 6e 64 6f 77 22 2c 2c | 62 6c 6f 63 6b 25 0d 02 |indow",,|block%..|
|000006d0| 8a 39 20 20 e7 20 62 6c | 6f 63 6b 25 21 30 3d 77 |.9 . bl|ock%!0=w|
|000006e0| 68 61 6e 64 6c 65 31 30 | 61 25 3a c8 99 22 57 69 |handle10|a%:.."Wi|
|000006f0| 6d 70 5f 43 6c 6f 73 65 | 57 69 6e 64 6f 77 22 2c |mp_Close|Window",|
|00000700| 2c 62 6c 6f 63 6b 25 0d | 02 94 13 20 c9 20 36 3a |,block%.|... . 6:|
|00000710| f2 65 64 69 74 6d 6f 75 | 73 65 0d 02 9e 19 20 c9 |.editmou|se.... .|
|00000720| 20 37 3a f2 63 61 6c 6c | 73 61 76 65 72 6f 75 74 | 7:.call|saverout|
|00000730| 69 6e 65 0d 02 a8 42 20 | c9 20 38 3a c8 99 22 57 |ine...B |. 8:.."W|
|00000740| 69 6d 70 5f 50 72 6f 63 | 65 73 73 4b 65 79 22 2c |imp_Proc|essKey",|
|00000750| 62 6c 6f 63 6b 25 21 32 | 34 3a f2 6b 65 79 70 72 |block%!2|4:.keypr|
|00000760| 65 73 73 3a f2 64 69 73 | 70 6c 61 79 5f 70 6f 73 |ess:.dis|play_pos|
|00000770| 69 74 69 6f 6e 0d 02 b2 | 16 20 c9 20 39 3a f2 6f |ition...|. . 9:.o|
|00000780| 70 74 69 6f 6e 73 65 6c | 65 63 74 0d 02 bc 39 20 |ptionsel|ect...9 |
|00000790| c9 20 31 30 3a c8 99 22 | 57 69 6d 70 5f 46 6f 72 |. 10:.."|Wimp_For|
|000007a0| 63 65 52 65 64 72 61 77 | 22 2c 77 68 61 6e 64 6c |ceRedraw|",whandl|
|000007b0| 65 31 25 2c 30 2c 2d 39 | 35 30 2c 31 30 35 30 2c |e1%,0,-9|50,1050,|
|000007c0| 2d 38 30 30 0d 02 c6 19 | 20 c9 20 31 37 2c 31 38 |-800....| . 17,18|
|000007d0| 3a f2 72 65 63 65 69 76 | 65 64 61 74 61 0d 02 d0 |:.receiv|edata...|
|000007e0| 06 20 cb 0d 02 da 2f 20 | e7 20 66 6c 61 67 67 25 |. ..../ |. flagg%|
|000007f0| 3d b9 20 f2 65 78 65 63 | 75 74 65 5f 63 6f 64 65 |=. .exec|ute_code|
|00000800| 3a f2 64 69 73 70 6c 61 | 79 5f 70 6f 73 69 74 69 |:.displa|y_positi|
|00000810| 6f 6e 0d 02 e4 06 20 e1 | 0d 02 ee 10 20 f4 2d 2d |on.... .|.... .--|
|00000820| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 02 f8 16 20 dd f2 63 |--------|.... ..c|
|00000830| 61 6c 6c 73 61 76 65 72 | 6f 75 74 69 6e 65 0d 03 |allsaver|outine..|
|00000840| 02 17 20 e7 20 6f 75 74 | 25 3d 33 20 f2 63 61 6c |.. . out|%=3 .cal|
|00000850| 6c 73 61 76 65 0d 03 0c | 18 20 e7 20 6f 75 74 25 |lsave...|. . out%|
|00000860| 3d 38 20 f2 63 61 6c 6c | 73 61 76 65 32 0d 03 16 |=8 .call|save2...|
|00000870| 06 20 e1 0d 03 20 10 20 | f4 2d 2d 2d 2d 2d 2d 2d |. ... . |.-------|
|00000880| 2d 2d 2d 0d 03 2a 4a 20 | dd f2 73 68 75 74 61 6c |---..*J |..shutal|
|00000890| 6c 3a 62 6c 6f 63 6b 25 | 21 30 3d 77 68 61 6e 64 |l:block%|!0=whand|
|000008a0| 6c 65 31 25 3a c8 99 22 | 57 69 6d 70 5f 43 6c 6f |le1%:.."|Wimp_Clo|
|000008b0| 73 65 57 69 6e 64 6f 77 | 22 2c 2c 62 6c 6f 63 6b |seWindow|",,block|
|000008c0| 25 3a f2 73 68 75 74 61 | 6c 6c 32 3a e1 0d 03 34 |%:.shuta|ll2:...4|
|000008d0| 10 20 f4 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 03 3e |. .-----|-----..>|
|000008e0| 0f 20 dd f2 73 68 75 74 | 61 6c 6c 32 0d 03 48 4f |. ..shut|all2..HO|
|000008f0| 20 f7 20 8d 44 52 43 3a | f5 3a f3 20 77 68 3a 20 | . .DRC:|.:. wh: |
|00000900| 62 6c 6f 63 6b 25 21 30 | 3d 77 68 3a 3a c8 99 22 |block%!0|=wh::.."|
|00000910| 57 69 6d 70 5f 43 6c 6f | 73 65 57 69 6e 64 6f 77 |Wimp_Clo|seWindow|
|00000920| 22 2c 2c 62 6c 6f 63 6b | 25 3a fd 20 77 68 3d 77 |",,block|%:. wh=w|
|00000930| 68 61 6e 64 6c 65 31 34 | 25 3a e1 0d 03 52 6e 20 |handle14|%:...Rn |
|00000940| dc 20 77 68 61 6e 64 6c | 65 32 25 2c 77 68 61 6e |. whandl|e2%,whan|
|00000950| 64 6c 65 33 25 2c 77 68 | 61 6e 64 6c 65 34 25 2c |dle3%,wh|andle4%,|
|00000960| 77 68 61 6e 64 6c 65 35 | 25 2c 77 68 61 6e 64 6c |whandle5|%,whandl|
|00000970| 65 36 25 2c 77 68 61 6e | 64 6c 65 36 61 25 2c 77 |e6%,whan|dle6a%,w|
|00000980| 68 61 6e 64 6c 65 31 30 | 61 25 2c 77 68 61 6e 64 |handle10|a%,whand|
|00000990| 6c 65 37 25 2c 77 68 61 | 6e 64 6c 65 38 25 2c 77 |le7%,wha|ndle8%,w|
|000009a0| 68 61 6e 64 6c 65 31 34 | 25 0d 03 5c 10 20 f4 2d |handle14|%..\. .-|
|000009b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 03 66 11 20 dd f2 |--------|-..f. ..|
|000009c0| 72 65 61 64 5f 63 61 72 | 65 74 0d 03 70 3f 20 c8 |read_car|et..p? .|
|000009d0| 99 22 57 69 6d 70 5f 47 | 65 74 43 61 72 65 74 50 |."Wimp_G|etCaretP|
|000009e0| 6f 73 69 74 69 6f 6e 22 | 2c 2c 62 6c 6f 63 6b 32 |osition"|,,block2|
|000009f0| 25 3a e7 20 62 6c 6f 63 | 6b 32 25 21 30 3d 77 68 |%:. bloc|k2%!0=wh|
|00000a00| 61 6e 64 6c 65 35 25 20 | e1 0d 03 7a 35 20 c8 99 |andle5% |...z5 ..|
|00000a10| 22 57 69 6d 70 5f 53 65 | 74 43 61 72 65 74 50 6f |"Wimp_Se|tCaretPo|
|00000a20| 73 69 74 69 6f 6e 22 2c | 77 68 61 6e 64 6c 65 31 |sition",|whandle1|
|00000a30| 25 2c 32 2c 30 2c 2c 2d | 31 2c 2d 31 3a e1 0d 03 |%,2,0,,-|1,-1:...|
|00000a40| 8e 10 20 f4 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 03 |.. .----|------..|
|00000a50| 98 0f 20 dd f2 6b 65 79 | 70 72 65 73 73 0d 03 a2 |.. ..key|press...|
|00000a60| 4c 20 49 25 3d 62 6c 6f | 63 6b 25 21 34 3a 4b 25 |L I%=blo|ck%!4:K%|
|00000a70| 3d 62 6c 6f 63 6b 25 21 | 32 34 3a 61 62 6f 72 74 |=block%!|24:abort|
|00000a80| 3d 30 3a 77 69 6e 25 3d | 62 6c 6f 63 6b 25 21 30 |=0:win%=|block%!0|
|00000a90| 3a f2 69 73 65 74 67 65 | 6e 28 77 68 61 6e 64 6c |:.isetge|n(whandl|
|00000aa0| 65 31 25 2c 33 2c 22 22 | 29 0d 03 ac 0e 20 c8 8e |e1%,3,""|).... ..|
|00000ab0| 20 77 69 6e 25 20 ca 0d | 03 c0 10 20 c9 20 77 68 | win% ..|... . wh|
|00000ac0| 61 6e 64 6c 65 31 25 0d | 03 ca 11 20 e7 20 4b 25 |andle1%.|... . K%|
|00000ad0| 3c 3e 31 33 20 cb 3a e1 | 0d 03 d4 42 20 63 6f 70 |<>13 .:.|...B cop|
|00000ae0| 79 5f 63 6f 75 6e 74 3d | 32 3a 62 6c 6f 63 6b 25 |y_count=|2:block%|
|00000af0| 21 30 3d 77 68 61 6e 64 | 6c 65 36 61 25 3a c8 99 |!0=whand|le6a%:..|
|00000b00| 22 57 69 6d 70 5f 43 6c | 6f 73 65 57 69 6e 64 6f |"Wimp_Cl|oseWindo|
|00000b10| 77 22 2c 2c 62 6c 6f 63 | 6b 25 0d 03 de 36 20 62 |w",,bloc|k%...6 b|
|00000b20| 6c 6f 63 6b 25 21 30 3d | 77 68 61 6e 64 6c 65 31 |lock%!0=|whandle1|
|00000b30| 30 61 25 3a c8 99 22 57 | 69 6d 70 5f 43 6c 6f 73 |0a%:.."W|imp_Clos|
|00000b40| 65 57 69 6e 64 6f 77 22 | 2c 2c 62 6c 6f 63 6b 25 |eWindow"|,,block%|
|00000b50| 0d 03 e8 34 20 f2 69 72 | 65 61 64 67 65 6e 28 77 |...4 .ir|eadgen(w|
|00000b60| 68 61 6e 64 6c 65 31 25 | 2c 30 29 3a f2 69 73 65 |handle1%|,0):.ise|
|00000b70| 74 67 65 6e 28 77 68 61 | 6e 64 6c 65 31 25 2c 30 |tgen(wha|ndle1%,0|
|00000b80| 2c 22 22 29 0d 03 f2 3e | 20 c8 99 22 57 69 6d 70 |,"")...>| .."Wimp|
|00000b90| 5f 53 65 74 43 61 72 65 | 74 50 6f 73 69 74 69 6f |_SetCare|tPositio|
|00000ba0| 6e 22 2c 77 68 61 6e 64 | 6c 65 31 25 2c 30 2c 30 |n",whand|le1%,0,0|
|00000bb0| 2c 2c 2d 31 2c 2d 31 3a | f2 6d 69 6e 69 5f 70 6f |,,-1,-1:|.mini_po|
|00000bc0| 6c 6c 0d 03 fc 1c 20 c8 | 99 22 57 69 6d 70 5f 43 |ll.... .|."Wimp_C|
|00000bd0| 72 65 61 74 65 4d 65 6e | 75 22 2c 2c 2d 31 0d 04 |reateMen|u",,-1..|
|00000be0| 06 44 20 e3 20 46 25 3d | 31 20 b8 20 35 30 3a 52 |.D . F%=|1 . 50:R|
|00000bf0| 65 70 65 61 74 70 61 64 | 24 28 46 25 29 3d 22 22 |epeatpad|$(F%)=""|
|00000c00| 3a 56 69 72 5f 50 72 6f | 31 24 28 46 25 2c 30 29 |:Vir_Pro|1$(F%,0)|
|00000c10| 3d 22 22 3a 52 65 70 65 | 61 74 28 46 25 29 3d 30 |="":Repe|at(F%)=0|
|00000c20| 3a ed 0d 04 10 41 20 52 | 65 70 65 61 74 70 61 64 |:....A R|epeatpad|
|00000c30| 24 28 31 29 3d 22 44 65 | 66 61 75 6c 74 22 3a 52 |$(1)="De|fault":R|
|00000c40| 65 70 65 61 74 70 61 64 | 24 28 32 29 3d 61 24 3a |epeatpad|$(2)=a$:|
|00000c50| f2 6c 6f 6f 6b 6d 75 6c | 74 69 3a 66 6c 61 67 67 |.lookmul|ti:flagg|
|00000c60| 25 3d b9 0d 04 1a 31 20 | e3 20 46 25 3d 31 20 b8 |%=....1 |. F%=1 .|
|00000c70| 20 35 30 3a 56 69 72 5f | 50 72 6f 31 24 28 46 25 | 50:Vir_|Pro1$(F%|
|00000c80| 2c 30 29 3d 52 65 70 65 | 61 74 70 61 64 24 28 46 |,0)=Repe|atpad$(F|
|00000c90| 25 29 3a ed 0d 04 24 16 | 20 f2 73 65 74 75 70 5f |%):...$.| .setup_|
|00000ca0| 56 69 72 70 72 6f 31 28 | 30 29 0d 04 2e 14 20 e7 |Virpro1(|0).... .|
|00000cb0| 20 63 6f 6d 6d 61 6e 64 | 73 25 3e 32 20 8c 0d 04 | command|s%>2 ...|
|00000cc0| 38 1a 20 20 e3 20 6c 6f | 6f 70 3d 32 20 b8 20 63 |8. . lo|op=2 . c|
|00000cd0| 6f 6d 6d 61 6e 64 73 25 | 0d 04 42 6a 20 20 20 e7 |ommands%|..Bj .|
|00000ce0| 20 c0 56 69 72 5f 50 72 | 6f 31 24 28 6c 6f 6f 70 | .Vir_Pr|o1$(loop|
|00000cf0| 2c 30 29 2c 32 29 3d 22 | 54 4f 22 20 f2 74 6f 5f |,0),2)="|TO" .to_|
|00000d00| 65 72 72 6f 72 3a 66 6c | 61 67 67 25 3d a3 3a c8 |error:fl|agg%=.:.|
|00000d10| 99 22 57 69 6d 70 5f 46 | 6f 72 63 65 52 65 64 72 |."Wimp_F|orceRedr|
|00000d20| 61 77 22 2c 77 68 61 6e | 64 6c 65 31 25 2c 32 30 |aw",whan|dle1%,20|
|00000d30| 2c 2d 37 38 38 2c 2c 31 | 30 32 38 2c 2d 31 33 36 |,-788,,1|028,-136|
|00000d40| 3a e1 0d 04 4c 6a 20 20 | 20 e7 20 c0 56 69 72 5f |:...Lj | . .Vir_|
|00000d50| 50 72 6f 31 24 28 6c 6f | 6f 70 2c 30 29 2c 32 29 |Pro1$(lo|op,0),2)|
|00000d60| 3d 22 74 6f 22 20 f2 74 | 6f 5f 65 72 72 6f 72 3a |="to" .t|o_error:|
|00000d70| 66 6c 61 67 67 25 3d a3 | 3a c8 99 22 57 69 6d 70 |flagg%=.|:.."Wimp|
|00000d80| 5f 46 6f 72 63 65 52 65 | 64 72 61 77 22 2c 77 68 |_ForceRe|draw",wh|
|00000d90| 61 6e 64 6c 65 31 25 2c | 32 30 2c 2d 37 38 38 2c |andle1%,|20,-788,|
|00000da0| 2c 31 30 32 38 2c 2d 31 | 33 36 3a e1 0d 04 56 07 |,1028,-1|36:...V.|
|00000db0| 20 20 ed 0d 04 60 06 20 | cd 0d 04 6a 14 20 e7 20 | ...`. |...j. . |
|00000dc0| 63 6f 6d 6d 61 6e 64 73 | 25 3e 32 20 8c 0d 04 74 |commands|%>2 ...t|
|00000dd0| 25 20 20 e7 20 c0 56 69 | 72 5f 50 72 6f 31 24 28 |% . .Vi|r_Pro1$(|
|00000de0| 32 2c 30 29 2c 36 29 3d | 22 52 45 50 45 41 54 22 |2,0),6)=|"REPEAT"|
|00000df0| 20 8c 0d 04 7e 4a 20 20 | 20 e7 20 c0 56 69 72 5f | ...~J | . .Vir_|
|00000e00| 50 72 6f 31 24 28 63 6f | 6d 6d 61 6e 64 73 25 2c |Pro1$(co|mmands%,|
|00000e10| 30 29 2c 33 29 3d 22 65 | 6e 64 22 20 c0 56 69 72 |0),3)="e|nd" .Vir|
|00000e20| 5f 50 72 6f 31 24 28 63 | 6f 6d 6d 61 6e 64 73 25 |_Pro1$(c|ommands%|
|00000e30| 2c 30 29 2c 33 29 3d 22 | 45 4e 44 22 0d 04 88 40 |,0),3)="|END"...@|
|00000e40| 20 20 20 e7 20 c0 56 69 | 72 5f 50 72 6f 31 24 28 | . .Vi|r_Pro1$(|
|00000e50| 63 6f 6d 6d 61 6e 64 73 | 25 2c 30 29 2c 33 29 3c |commands|%,0),3)<|
|00000e60| 3e 22 45 4e 44 22 20 f2 | 72 65 70 5f 65 72 72 6f |>"END" .|rep_erro|
|00000e70| 72 3a 66 6c 61 67 67 25 | 3d a3 3a e1 0d 04 92 07 |r:flagg%|=.:.....|
|00000e80| 20 20 cd 0d 04 9c 41 20 | 20 e7 20 c0 56 69 72 5f | ....A | . .Vir_|
|00000e90| 50 72 6f 31 24 28 63 6f | 6d 6d 61 6e 64 73 25 2c |Pro1$(co|mmands%,|
|00000ea0| 30 29 2c 36 29 3d 22 52 | 45 50 45 41 54 22 20 f2 |0),6)="R|EPEAT" .|
|00000eb0| 72 65 70 5f 65 72 72 6f | 72 3a 66 6c 61 67 67 25 |rep_erro|r:flagg%|
|00000ec0| 3d a3 3a e1 0d 04 a6 06 | 20 cd 0d 04 b0 4e 20 e7 |=.:.....| ....N .|
|00000ed0| 20 63 6f 6d 6d 61 6e 64 | 73 25 3d 32 20 80 20 c0 | command|s%=2 . .|
|00000ee0| 56 69 72 5f 50 72 6f 31 | 24 28 32 2c 30 29 2c 36 |Vir_Pro1|$(2,0),6|
|00000ef0| 29 3d 22 72 65 70 65 61 | 74 22 20 c1 56 69 72 5f |)="repea|t" .Vir_|
|00000f00| 50 72 6f 31 24 28 32 2c | 30 29 2c 31 2c 36 29 3d |Pro1$(2,|0),1,6)=|
|00000f10| 22 52 45 50 45 41 54 22 | 0d 04 ba 48 20 e7 20 63 |"REPEAT"|...H . c|
|00000f20| 6f 6d 6d 61 6e 64 73 25 | 3d 32 20 80 20 c0 56 69 |ommands%|=2 . .Vi|
|00000f30| 72 5f 50 72 6f 31 24 28 | 32 2c 30 29 2c 33 29 3d |r_Pro1$(|2,0),3)=|
|00000f40| 22 74 6f 20 22 20 c1 56 | 69 72 5f 50 72 6f 31 24 |"to " .V|ir_Pro1$|
|00000f50| 28 32 2c 30 29 2c 31 2c | 33 29 3d 22 54 4f 20 22 |(2,0),1,|3)="TO "|
|00000f60| 0d 04 c4 38 20 e7 20 63 | 6f 6d 6d 61 6e 64 73 25 |...8 . c|ommands%|
|00000f70| 3d 32 20 80 20 c0 56 69 | 72 5f 50 72 6f 31 24 28 |=2 . .Vi|r_Pro1$(|
|00000f80| 32 2c 30 29 2c 36 29 3d | 22 52 45 50 45 41 54 22 |2,0),6)=|"REPEAT"|
|00000f90| 20 f2 72 65 70 65 61 74 | 0d 04 ce 2f 20 e7 20 63 | .repeat|.../ . c|
|00000fa0| 6f 6d 6d 61 6e 64 73 25 | 3d 32 20 80 20 c0 56 69 |ommands%|=2 . .Vi|
|00000fb0| 72 5f 50 72 6f 31 24 28 | 32 2c 30 29 2c 33 29 3d |r_Pro1$(|2,0),3)=|
|00000fc0| 22 54 4f 20 22 20 8c 0d | 04 d8 26 20 20 20 43 43 |"TO " ..|..& CC|
|00000fd0| 24 3d 56 69 72 5f 50 72 | 6f 31 24 28 32 2c 30 29 |$=Vir_Pr|o1$(2,0)|
|00000fe0| 3a f2 74 6f 3a 66 6c 61 | 67 67 25 3d a3 0d 04 e2 |:.to:fla|gg%=....|
|00000ff0| 06 20 cd 0d 04 ec 38 20 | c8 99 22 57 69 6d 70 5f |. ....8 |.."Wimp_|
|00001000| 46 6f 72 63 65 52 65 64 | 72 61 77 22 2c 77 68 61 |ForceRed|raw",wha|
|00001010| 6e 64 6c 65 31 25 2c 32 | 30 2c 2d 37 38 38 2c 2c |ndle1%,2|0,-788,,|
|00001020| 31 30 32 38 2c 2d 31 33 | 36 3a e1 0d 04 f6 04 0d |1028,-13|6:......|
|00001030| 05 00 10 20 c9 20 77 68 | 61 6e 64 6c 65 34 25 0d |... . wh|andle4%.|
|00001040| 05 0a 18 20 e7 20 4b 25 | 3d 26 31 38 45 20 80 20 |... . K%|=&18E . |
|00001050| 49 25 3c 31 35 20 8c 0d | 05 14 20 20 20 49 25 2b |I%<15 ..|.. I%+|
|00001060| 3d 31 3a f2 63 61 72 65 | 74 28 49 25 2c 77 68 61 |=1:.care|t(I%,wha|
|00001070| 6e 64 6c 65 34 25 29 0d | 05 1e 06 20 cd 0d 05 28 |ndle4%).|... ...(|
|00001080| 17 20 e7 20 4b 25 3d 26 | 31 38 46 20 80 20 49 25 |. . K%=&|18F . I%|
|00001090| 3e 32 20 8c 0d 05 32 20 | 20 20 49 25 2d 3d 31 3a |>2 ...2 | I%-=1:|
|000010a0| f2 63 61 72 65 74 28 49 | 25 2c 77 68 61 6e 64 6c |.caret(I|%,whandl|
|000010b0| 65 34 25 29 0d 05 3c 06 | 20 cd 0d 05 46 22 20 e7 |e4%)..<.| ...F" .|
|000010c0| 20 4b 25 3d 26 31 39 46 | 20 f2 73 68 75 6e 74 75 | K%=&19F| .shuntu|
|000010d0| 70 28 77 68 61 6e 64 6c | 65 34 25 29 0d 05 50 10 |p(whandl|e4%)..P.|
|000010e0| 20 e7 20 4b 25 3d 26 31 | 39 45 20 8c 0d 05 5a 1b | . K%=&1|9E ...Z.|
|000010f0| 20 20 f2 73 68 75 6e 74 | 64 6f 77 6e 28 77 68 61 | .shunt|down(wha|
|00001100| 6e 64 6c 65 34 25 29 0d | 05 64 28 20 20 e7 20 49 |ndle4%).|.d( . I|
|00001110| 25 3c 31 34 20 49 25 2b | 3d 31 3a f2 63 61 72 65 |%<14 I%+|=1:.care|
|00001120| 74 28 49 25 2c 77 68 61 | 6e 64 6c 65 34 25 29 0d |t(I%,wha|ndle4%).|
|00001130| 05 6e 06 20 cd 0d 05 78 | 0e 20 e7 20 4b 25 3d 31 |.n. ...x|. . K%=1|
|00001140| 33 20 8c 0d 05 82 27 20 | 20 c8 99 22 57 69 6d 70 |3 ....' | .."Wimp|
|00001150| 5f 47 65 74 43 61 72 65 | 74 50 6f 73 69 74 69 6f |_GetCare|tPositio|
|00001160| 6e 22 2c 2c 62 6c 6f 63 | 6b 25 0d 05 8c 17 20 20 |n",,bloc|k%.... |
|00001170| 63 75 72 5f 70 6f 73 3d | 62 6c 6f 63 6b 25 21 32 |cur_pos=|block%!2|
|00001180| 30 0d 05 96 4e 20 20 e7 | 20 63 75 72 5f 70 6f 73 |0...N .| cur_pos|
|00001190| 3d 30 20 f2 73 68 75 6e | 74 64 6f 77 6e 28 77 68 |=0 .shun|tdown(wh|
|000011a0| 61 6e 64 6c 65 34 25 29 | 20 8b 20 e7 20 49 25 3c |andle4%)| . . I%<|
|000011b0| 31 34 20 49 25 3d 49 25 | 2b 31 3a f2 63 61 72 65 |14 I%=I%|+1:.care|
|000011c0| 74 28 49 25 2c 77 68 61 | 6e 64 6c 65 34 25 29 0d |t(I%,wha|ndle4%).|
|000011d0| 05 a0 06 20 cd 0d 05 aa | 06 20 e1 0d 05 b4 04 0d |... ....|. ......|
|000011e0| 05 be 10 20 c9 20 77 68 | 61 6e 64 6c 65 35 25 0d |... . wh|andle5%.|
|000011f0| 05 c8 33 20 e7 20 4b 25 | 3d 26 31 38 45 20 80 20 |..3 . K%|=&18E . |
|00001200| 49 25 3c 31 35 20 49 25 | 3d 49 25 2b 31 3a f2 63 |I%<15 I%|=I%+1:.c|
|00001210| 61 72 65 74 28 49 25 2c | 77 68 61 6e 64 6c 65 35 |aret(I%,|whandle5|
|00001220| 25 29 0d 05 d2 17 20 e7 | 20 4b 25 3d 26 31 38 46 |%).... .| K%=&18F|
|00001230| 20 80 20 49 25 3e 32 20 | 8c 0d 05 dc 22 20 20 49 | . I%>2 |...." I|
|00001240| 25 3d 49 25 2d 31 3a f2 | 63 61 72 65 74 28 49 25 |%=I%-1:.|caret(I%|
|00001250| 2c 77 68 61 6e 64 6c 65 | 35 25 29 0d 05 e6 06 20 |,whandle|5%).... |
|00001260| cd 0d 05 f0 22 20 e7 20 | 4b 25 3d 26 31 39 46 20 |...." . |K%=&19F |
|00001270| f2 73 68 75 6e 74 75 70 | 28 77 68 61 6e 64 6c 65 |.shuntup|(whandle|
|00001280| 35 25 29 0d 05 fa 10 20 | e7 20 4b 25 3d 26 31 39 |5%).... |. K%=&19|
|00001290| 45 20 8c 0d 06 04 1b 20 | 20 f2 73 68 75 6e 74 64 |E ..... | .shuntd|
|000012a0| 6f 77 6e 28 77 68 61 6e | 64 6c 65 35 25 29 0d 06 |own(whan|dle5%)..|
|000012b0| 0e 28 20 20 e7 20 49 25 | 3c 31 34 20 49 25 2b 3d |.( . I%|<14 I%+=|
|000012c0| 31 3a f2 63 61 72 65 74 | 28 49 25 2c 77 68 61 6e |1:.caret|(I%,whan|
|000012d0| 64 6c 65 35 25 29 0d 06 | 18 06 20 cd 0d 06 22 0e |dle5%)..|.. ...".|
|000012e0| 20 e7 20 4b 25 3d 31 33 | 20 8c 0d 06 2c 27 20 20 | . K%=13| ...,' |
|000012f0| c8 99 22 57 69 6d 70 5f | 47 65 74 43 61 72 65 74 |.."Wimp_|GetCaret|
|00001300| 50 6f 73 69 74 69 6f 6e | 22 2c 2c 62 6c 6f 63 6b |Position|",,block|
|00001310| 25 0d 06 36 39 20 20 63 | 75 72 5f 70 6f 73 3d 62 |%..69 c|ur_pos=b|
|00001320| 6c 6f 63 6b 25 21 32 30 | 3a e7 20 63 75 72 5f 70 |lock%!20|:. cur_p|
|00001330| 6f 73 3d 30 20 f2 73 68 | 75 6e 74 64 6f 77 6e 28 |os=0 .sh|untdown(|
|00001340| 77 68 61 6e 64 6c 65 35 | 25 29 0d 06 40 2a 20 20 |whandle5|%)..@* |
|00001350| e7 20 49 25 3c 31 35 20 | 49 25 3d 49 25 2b 31 3a |. I%<15 |I%=I%+1:|
|00001360| f2 63 61 72 65 74 28 49 | 25 2c 77 68 61 6e 64 6c |.caret(I|%,whandl|
|00001370| 65 35 25 29 0d 06 4a 06 | 20 cd 0d 06 54 06 20 e1 |e5%)..J.| ...T. .|
|00001380| 0d 06 5e 04 0d 06 68 10 | 20 c9 20 77 68 61 6e 64 |..^...h.| . whand|
|00001390| 6c 65 33 25 0d 06 72 3c | 20 f2 69 72 65 61 64 67 |le3%..r<| .ireadg|
|000013a0| 65 6e 28 77 68 61 6e 64 | 6c 65 33 25 2c 30 29 3a |en(whand|le3%,0):|
|000013b0| 24 73 61 76 65 70 69 63 | 25 3d 61 24 3a f2 73 61 |$savepic|%=a$:.sa|
|000013c0| 76 65 70 69 63 28 24 73 | 61 76 65 70 69 63 25 29 |vepic($s|avepic%)|
|000013d0| 0d 06 7c 1c 20 c8 99 22 | 57 69 6d 70 5f 43 72 65 |..|. .."|Wimp_Cre|
|000013e0| 61 74 65 4d 65 6e 75 22 | 2c 2c 2d 31 0d 06 86 04 |ateMenu"|,,-1....|
|000013f0| 0d 06 90 10 20 c9 20 77 | 68 61 6e 64 6c 65 38 25 |.... . w|handle8%|
|00001400| 0d 06 9a 3f 20 f2 69 72 | 65 61 64 67 65 6e 28 77 |...? .ir|eadgen(w|
|00001410| 68 61 6e 64 6c 65 38 25 | 2c 30 29 3a 24 73 61 76 |handle8%|,0):$sav|
|00001420| 65 64 61 74 61 25 3d 61 | 24 3a f2 73 61 76 65 64 |edata%=a|$:.saved|
|00001430| 61 74 61 28 24 73 61 76 | 65 64 61 74 61 25 29 0d |ata($sav|edata%).|
|00001440| 06 a4 1c 20 c8 99 22 57 | 69 6d 70 5f 43 72 65 61 |... .."W|imp_Crea|
|00001450| 74 65 4d 65 6e 75 22 2c | 2c 2d 31 0d 06 ae 04 0d |teMenu",|,-1.....|
|00001460| 06 b8 06 20 cb 0d 06 c2 | 06 20 e1 0d 06 cc 10 20 |... ....|. ..... |
|00001470| f4 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 06 d6 0c 20 |.-------|---.... |
|00001480| dd f2 6d 6f 75 73 65 0d | 06 e0 2d 20 78 25 3d 21 |..mouse.|..- x%=!|
|00001490| 62 6c 6f 63 6b 25 3a 79 | 25 3d 62 6c 6f 63 6b 25 |block%:y|%=block%|
|000014a0| 21 34 3a e7 20 62 6c 6f | 63 6b 25 21 31 32 3c 3e |!4:. blo|ck%!12<>|
|000014b0| 2d 32 20 e1 0d 06 ea 40 | 20 e7 20 62 6c 6f 63 6b |-2 ....@| . block|
|000014c0| 25 21 38 20 80 20 32 20 | 8c 20 f2 72 6d 28 22 4d |%!8 . 2 |. .rm("M|
|000014d0| 45 4e 33 22 29 3a f2 64 | 72 61 77 6d 65 6e 75 28 |EN3"):.d|rawmenu(|
|000014e0| 6d 65 6e 75 25 2c 74 65 | 78 74 24 2c 78 25 2c 79 |menu%,te|xt$,x%,y|
|000014f0| 25 2c b9 29 0d 06 f4 1c | 20 e7 20 62 6c 6f 63 6b |%,.)....| . block|
|00001500| 25 21 38 20 80 20 35 20 | 8c 20 65 6e 64 25 3d b9 |%!8 . 5 |. end%=.|
|00001510| 0d 06 fe 06 20 e1 0d 07 | 08 10 20 f4 2d 2d 2d 2d |.... ...|.. .----|
|00001520| 2d 2d 2d 2d 2d 2d 0d 07 | 12 10 20 dd f2 65 64 69 |------..|.. ..edi|
|00001530| 74 6d 6f 75 73 65 0d 07 | 1c 3b 20 78 70 6f 73 3d |tmouse..|.; xpos=|
|00001540| 21 62 6c 6f 63 6b 25 3a | 79 70 6f 73 3d 62 6c 6f |!block%:|ypos=blo|
|00001550| 63 6b 25 21 34 3a 77 69 | 6e 25 3d 62 6c 6f 63 6b |ck%!4:wi|n%=block|
|00001560| 25 21 31 32 3a 69 63 3d | 62 6c 6f 63 6b 25 21 31 |%!12:ic=|block%!1|
|00001570| 36 0d 07 26 5c 20 e7 20 | 62 6c 6f 63 6b 25 21 38 |6..&\ . |block%!8|
|00001580| 3d 32 20 80 20 62 6c 6f | 63 6b 25 21 31 32 3d 2d |=2 . blo|ck%!12=-|
|00001590| 32 20 f2 72 6d 28 22 4d | 45 4e 33 22 29 3a f2 64 |2 .rm("M|EN3"):.d|
|000015a0| 72 61 77 6d 65 6e 75 28 | 6d 65 6e 75 25 2c 74 65 |rawmenu(|menu%,te|
|000015b0| 78 74 24 2c 78 70 6f 73 | 2c 79 70 6f 73 2c b9 29 |xt$,xpos|,ypos,.)|
|000015c0| 3a 4d 55 24 3d 22 69 63 | 6f 6e 22 3a e1 0d 07 30 |:MU$="ic|on":...0|
|000015d0| 47 20 e7 20 62 6c 6f 63 | 6b 25 21 38 3d 32 20 80 |G . bloc|k%!8=2 .|
|000015e0| 20 77 69 6e 25 3d 77 68 | 61 6e 64 6c 65 31 25 20 | win%=wh|andle1% |
|000015f0| f2 64 72 61 77 6d 61 69 | 6e 3a f2 75 70 64 61 74 |.drawmai|n:.updat|
|00001600| 65 73 74 61 74 75 73 3a | 4d 55 24 3d 22 6d 65 6e |estatus:|MU$="men|
|00001610| 75 22 3a e1 0d 07 44 0e | 20 c8 8e 20 77 69 6e 25 |u":...D.| .. win%|
|00001620| 20 ca 0d 07 4e 04 0d 07 | 58 10 20 c9 20 77 68 61 | ...N...|X. . wha|
|00001630| 6e 64 6c 65 31 25 0d 07 | 62 1b 20 20 e7 20 69 63 |ndle1%..|b. . ic|
|00001640| 3e 2d 31 20 f2 74 62 61 | 72 5f 63 6c 69 63 6b 3a |>-1 .tba|r_click:|
|00001650| e1 0d 07 6c 25 20 20 e7 | 20 62 6c 6f 63 6b 25 21 |...l% .| block%!|
|00001660| 38 3d 31 20 8c 20 f2 63 | 61 6c 63 5f 6c 6f 63 61 |8=1 . .c|alc_loca|
|00001670| 74 69 6f 6e 3a e1 0d 07 | 6e 26 20 20 e7 20 62 6c |tion:...|n& . bl|
|00001680| 6f 63 6b 25 21 38 3d 34 | 20 8c 20 f2 63 61 6c 63 |ock%!8=4| . .calc|
|00001690| 5f 6c 6f 63 61 74 69 6f | 6e 32 3a e1 0d 07 76 04 |_locatio|n2:...v.|
|000016a0| 0d 07 80 10 20 c9 20 77 | 68 61 6e 64 6c 65 35 25 |.... . w|handle5%|
|000016b0| 0d 07 8a 13 20 e7 20 62 | 6c 6f 63 6b 25 21 38 3d |.... . b|lock%!8=|
|000016c0| 32 20 e1 0d 07 94 0e 20 | e7 20 69 63 3d 31 37 20 |2 ..... |. ic=17 |
|000016d0| 8c 0d 07 9e 1e 20 20 f2 | 6f 6b 5f 63 6c 69 63 6b |..... .|ok_click|
|000016e0| 65 64 28 30 2c 77 68 61 | 6e 64 6c 65 35 25 29 0d |ed(0,wha|ndle5%).|
|000016f0| 07 a8 2b 20 20 e3 20 46 | 25 3d 31 20 b8 20 31 35 |..+ . F|%=1 . 15|
|00001700| 3a 50 72 6f 31 24 28 46 | 25 2c 70 72 6f 63 5f 70 |:Pro1$(F|%,proc_p|
|00001710| 6f 69 6e 74 29 3d 22 22 | 3a ed 0d 07 b2 11 20 20 |oint)=""|:..... |
|00001720| e3 20 46 25 3d 31 20 b8 | 20 31 35 0d 07 bc 36 20 |. F%=1 .| 15...6 |
|00001730| 20 20 f2 69 72 65 61 64 | 67 65 6e 28 77 68 61 6e | .iread|gen(whan|
|00001740| 64 6c 65 35 25 2c 46 25 | 29 3a 50 72 6f 31 24 28 |dle5%,F%|):Pro1$(|
|00001750| 46 25 2c 70 72 6f 63 5f | 70 6f 69 6e 74 29 3d 61 |F%,proc_|point)=a|
|00001760| 24 0d 07 c6 20 20 20 20 | f2 69 73 65 74 67 65 6e |$... |.isetgen|
|00001770| 28 77 68 61 6e 64 6c 65 | 35 25 2c 46 25 2c 22 22 |(whandle|5%,F%,""|
|00001780| 29 0d 07 d0 07 20 20 ed | 0d 07 da 25 20 20 e3 20 |).... .|...% . |
|00001790| 46 25 3d 31 20 b8 20 35 | 30 3a 52 65 70 65 61 74 |F%=1 . 5|0:Repeat|
|000017a0| 70 61 64 24 28 46 25 29 | 3d 22 22 3a ed 0d 07 e4 |pad$(F%)|="":....|
|000017b0| 37 20 20 e3 20 46 25 3d | 31 20 b8 20 31 35 3a 52 |7 . F%=|1 . 15:R|
|000017c0| 65 70 65 61 74 70 61 64 | 24 28 46 25 29 3d 50 72 |epeatpad|$(F%)=Pr|
|000017d0| 6f 31 24 28 46 25 2c 70 | 72 6f 63 5f 70 6f 69 6e |o1$(F%,p|roc_poin|
|000017e0| 74 29 3a ed 0d 07 ee 10 | 20 20 f2 6c 6f 6f 6b 6d |t):.....| .lookm|
|000017f0| 75 6c 74 69 0d 07 f8 3b | 20 20 e3 20 46 25 3d 31 |ulti...;| . F%=1|
|00001800| 20 b8 20 35 30 3a 56 69 | 72 5f 50 72 6f 31 24 28 | . 50:Vi|r_Pro1$(|
|00001810| 46 25 2c 70 72 6f 63 5f | 70 6f 69 6e 74 29 3d 52 |F%,proc_|point)=R|
|00001820| 65 70 65 61 74 70 61 64 | 24 28 46 25 29 3a ed 0d |epeatpad|$(F%):..|
|00001830| 08 02 2b 20 20 f2 73 65 | 74 75 70 5f 56 69 72 70 |..+ .se|tup_Virp|
|00001840| 72 6f 31 28 70 72 6f 63 | 5f 70 6f 69 6e 74 29 3a |ro1(proc|_point):|
|00001850| f2 6d 69 6e 69 5f 70 6f | 6c 6c 0d 08 0c 36 20 20 |.mini_po|ll...6 |
|00001860| 62 6c 6f 63 6b 25 21 30 | 3d 77 68 61 6e 64 6c 65 |block%!0|=whandle|
|00001870| 35 25 3a c8 99 20 22 57 | 69 6d 70 5f 43 6c 6f 73 |5%:.. "W|imp_Clos|
|00001880| 65 57 69 6e 64 6f 77 22 | 2c 2c 62 6c 6f 63 6b 25 |eWindow"|,,block%|
|00001890| 0d 08 16 34 20 20 c8 99 | 22 57 69 6d 70 5f 53 65 |...4 ..|"Wimp_Se|
|000018a0| 74 43 61 72 65 74 50 6f | 73 69 74 69 6f 6e 22 2c |tCaretPo|sition",|
|000018b0| 77 68 61 6e 64 6c 65 31 | 25 2c 30 2c 30 2c 2c 2d |whandle1|%,0,0,,-|
|000018c0| 31 2c 2d 31 0d 08 20 07 | 20 20 e1 0d 08 2a 06 20 |1,-1.. .| ...*. |
|000018d0| cd 0d 08 34 04 0d 08 3e | 0e 20 e7 20 69 63 3d 31 |...4...>|. . ic=1|
|000018e0| 38 20 8c 0d 08 48 28 20 | 20 e7 20 69 63 3d 31 38 |8 ...H( | . ic=18|
|000018f0| 20 f2 63 61 6e 5f 63 6c | 69 63 6b 65 64 28 31 36 | .can_cl|icked(16|
|00001900| 2c 77 68 61 6e 64 6c 65 | 35 25 29 0d 08 52 2d 20 |,whandle|5%)..R- |
|00001910| 20 e3 20 46 25 3d 31 20 | b8 20 31 34 3a f2 69 73 | . F%=1 |. 14:.is|
|00001920| 65 74 67 65 6e 28 77 68 | 61 6e 64 6c 65 35 25 2c |etgen(wh|andle5%,|
|00001930| 46 25 2c 22 22 29 3a ed | 0d 08 5c 35 20 20 62 6c |F%,""):.|..\5 bl|
|00001940| 6f 63 6b 25 21 30 3d 77 | 68 61 6e 64 6c 65 35 25 |ock%!0=w|handle5%|
|00001950| 3a c8 99 22 57 69 6d 70 | 5f 43 6c 6f 73 65 57 69 |:.."Wimp|_CloseWi|
|00001960| 6e 64 6f 77 22 2c 2c 62 | 6c 6f 63 6b 25 0d 08 66 |ndow",,b|lock%..f|
|00001970| 34 20 20 c8 99 22 57 69 | 6d 70 5f 53 65 74 43 61 |4 .."Wi|mp_SetCa|
|00001980| 72 65 74 50 6f 73 69 74 | 69 6f 6e 22 2c 77 68 61 |retPosit|ion",wha|
|00001990| 6e 64 6c 65 31 25 2c 30 | 2c 30 2c 2c 2d 31 2c 2d |ndle1%,0|,0,,-1,-|
|000019a0| 31 0d 08 70 06 20 cd 0d | 08 7a 04 0d 08 84 1e 20 |1..p. ..|.z..... |
|000019b0| c9 20 77 68 61 6e 64 6c | 65 38 25 3a f4 20 28 73 |. whandl|e8%:. (s|
|000019c0| 61 76 65 20 64 61 74 61 | 29 0d 08 8e 46 20 e7 20 |ave data|)...F . |
|000019d0| 62 6c 6f 63 6b 25 21 31 | 36 3d 32 20 80 20 28 62 |block%!1|6=2 . (b|
|000019e0| 6c 6f 63 6b 25 21 38 20 | 80 20 26 35 30 29 3e 30 |lock%!8 |. &50)>0|
|000019f0| 20 f2 64 72 61 67 6f 75 | 74 6c 69 6e 65 28 77 68 | .dragou|tline(wh|
|00001a00| 61 6e 64 6c 65 38 25 29 | 3a 6f 75 74 25 3d 38 0d |andle8%)|:out%=8.|
|00001a10| 08 98 0d 20 e7 20 69 63 | 3d 31 20 8c 0d 08 a2 68 |... . ic|=1 ....h|
|00001a20| 20 e7 20 62 6c 6f 63 6b | 25 21 38 20 80 20 35 20 | . block|%!8 . 5 |
|00001a30| 8c 20 f2 69 72 65 61 64 | 67 65 6e 28 77 68 61 6e |. .iread|gen(whan|
|00001a40| 64 6c 65 38 25 2c 30 29 | 3a 24 73 61 76 65 64 61 |dle8%,0)|:$saveda|
|00001a50| 74 61 25 3d 61 24 3a f2 | 73 61 76 65 64 61 74 61 |ta%=a$:.|savedata|
|00001a60| 28 24 73 61 76 65 64 61 | 74 61 25 29 3a c8 99 22 |($saveda|ta%):.."|
|00001a70| 57 69 6d 70 5f 43 72 65 | 61 74 65 4d 65 6e 75 22 |Wimp_Cre|ateMenu"|
|00001a80| 2c 2c 2d 31 0d 08 ac 06 | 20 cd 0d 08 b6 04 0d 08 |,,-1....| .......|
|00001a90| c0 20 20 c9 20 77 68 61 | 6e 64 6c 65 33 25 3a f4 |. . wha|ndle3%:.|
|00001aa0| 20 28 73 61 76 65 20 73 | 63 72 65 65 6e 29 0d 08 | (save s|creen)..|
|00001ab0| ca 46 20 e7 20 62 6c 6f | 63 6b 25 21 31 36 3d 32 |.F . blo|ck%!16=2|
|00001ac0| 20 80 20 28 62 6c 6f 63 | 6b 25 21 38 20 80 20 26 | . (bloc|k%!8 . &|
|00001ad0| 35 30 29 3e 30 20 f2 64 | 72 61 67 6f 75 74 6c 69 |50)>0 .d|ragoutli|
|00001ae0| 6e 65 28 77 68 61 6e 64 | 6c 65 33 25 29 3a 6f 75 |ne(whand|le3%):ou|
|00001af0| 74 25 3d 33 0d 08 d4 0d | 20 e7 20 69 63 3d 31 20 |t%=3....| . ic=1 |
|00001b00| 8c 0d 08 de 68 20 20 e7 | 20 62 6c 6f 63 6b 25 21 |....h .| block%!|
|00001b10| 38 20 80 20 35 20 8c 20 | f2 69 72 65 61 64 67 65 |8 . 5 . |.ireadge|
|00001b20| 6e 28 77 68 61 6e 64 6c | 65 33 25 2c 30 29 3a 24 |n(whandl|e3%,0):$|
|00001b30| 73 61 76 65 64 61 74 61 | 25 3d 61 24 3a f2 73 61 |savedata|%=a$:.sa|
|00001b40| 76 65 70 69 63 28 24 73 | 61 76 65 64 61 74 61 25 |vepic($s|avedata%|
|00001b50| 29 3a c8 99 22 57 69 6d | 70 5f 43 72 65 61 74 65 |):.."Wim|p_Create|
|00001b60| 4d 65 6e 75 22 2c 2c 2d | 31 0d 08 e8 06 20 cd 0d |Menu",,-|1.... ..|
|00001b70| 08 f2 04 0d 08 fc 04 0d | 09 06 19 20 c9 20 77 68 |........|... . wh|
|00001b80| 61 6e 64 6c 65 37 25 3a | f4 20 28 68 65 6c 70 29 |andle7%:|. (help)|
|00001b90| 0d 09 10 0d 20 e7 20 69 | 63 3d 32 20 8c 0d 09 1a |.... . i|c=2 ....|
|00001ba0| 1f 20 20 f2 63 61 6e 5f | 63 6c 69 63 6b 65 64 28 |. .can_|clicked(|
|00001bb0| 30 2c 77 68 61 6e 64 6c | 65 37 25 29 0d 09 24 38 |0,whandl|e7%)..$8|
|00001bc0| 20 20 e7 20 68 65 6c 70 | 5f 70 61 67 65 3d 31 20 | . help|_page=1 |
|00001bd0| 68 65 6c 70 5f 70 61 67 | 65 3d 33 34 20 8b 20 68 |help_pag|e=34 . h|
|00001be0| 65 6c 70 5f 70 61 67 65 | 3d 68 65 6c 70 5f 70 61 |elp_page|=help_pa|
|00001bf0| 67 65 2d 31 0d 09 2e 06 | 20 cd 0d 09 38 04 0d 09 |ge-1....| ...8...|
|00001c00| 42 0d 20 e7 20 69 63 3d | 33 20 8c 0d 09 4c 1f 20 |B. . ic=|3 ...L. |
|00001c10| 20 f2 63 61 6e 5f 63 6c | 69 63 6b 65 64 28 31 2c | .can_cl|icked(1,|
|00001c20| 77 68 61 6e 64 6c 65 37 | 25 29 0d 09 56 2f 20 20 |whandle7|%)..V/ |
|00001c30| e7 20 68 65 6c 70 5f 70 | 61 67 65 3d 33 34 20 68 |. help_p|age=34 h|
|00001c40| 65 6c 70 5f 70 61 67 65 | 3d 31 20 8b 20 68 65 6c |elp_page|=1 . hel|
|00001c50| 70 5f 70 61 67 65 2b 3d | 31 0d 09 60 06 20 cd 0d |p_page+=|1..`. ..|
|00001c60| 09 6a 04 0d 09 74 18 20 | e7 20 69 63 3d 34 33 20 |.j...t. |. ic=43 |
|00001c70| 68 65 6c 70 5f 70 61 67 | 65 3d 31 0d 09 7e 2e 20 |help_pag|e=1..~. |
|00001c80| e7 20 69 63 3e 33 20 80 | 20 69 63 3c 33 35 20 80 |. ic>3 .| ic<35 .|
|00001c90| 20 68 65 6c 70 5f 70 61 | 67 65 3d 31 20 68 65 6c | help_pa|ge=1 hel|
|00001ca0| 70 5f 70 61 67 65 3d 69 | 63 0d 09 88 30 20 c8 99 |p_page=i|c...0 ..|
|00001cb0| 22 57 69 6d 70 5f 46 6f | 72 63 65 52 65 64 72 61 |"Wimp_Fo|rceRedra|
|00001cc0| 77 22 2c 77 68 61 6e 64 | 6c 65 37 25 2c 30 2c 2d |w",whand|le7%,0,-|
|00001cd0| 36 39 32 2c 36 30 30 2c | 30 0d 09 89 35 20 c8 99 |692,600,|0...5 ..|
|00001ce0| 22 57 69 6d 70 5f 46 6f | 72 63 65 52 65 64 72 61 |"Wimp_Fo|rceRedra|
|00001cf0| 77 22 2c 77 68 61 6e 64 | 6c 65 37 25 2c 32 33 30 |w",whand|le7%,230|
|00001d00| 2c 2d 37 37 30 2c 33 32 | 30 2c 2d 37 30 30 0d 09 |,-770,32|0,-700..|
|00001d10| 92 04 0d 09 9c 1b 20 c9 | 20 77 68 61 6e 64 6c 65 |...... .| whandle|
|00001d20| 34 25 3a f4 20 28 52 65 | 70 65 61 74 29 0d 09 a6 |4%:. (Re|peat)...|
|00001d30| 15 20 e7 20 62 6c 6f 63 | 6b 25 21 31 36 3d 31 37 |. . bloc|k%!16=17|
|00001d40| 20 8c 0d 09 b0 1e 20 20 | f2 6f 6b 5f 63 6c 69 63 | ..... |.ok_clic|
|00001d50| 6b 65 64 28 30 2c 77 68 | 61 6e 64 6c 65 34 25 29 |ked(0,wh|andle4%)|
|00001d60| 0d 09 ba 3d 20 20 e3 20 | 46 25 3d 31 20 b8 20 35 |...= . |F%=1 . 5|
|00001d70| 30 3a 52 65 70 65 61 74 | 70 61 64 24 28 46 25 29 |0:Repeat|pad$(F%)|
|00001d80| 3d 22 22 3a ed 3a 52 65 | 70 65 61 74 70 61 64 24 |="":.:Re|peatpad$|
|00001d90| 28 31 29 3d 22 44 65 66 | 61 75 6c 74 22 0d 09 c4 |(1)="Def|ault"...|
|00001da0| 3f 20 20 e3 20 46 25 3d | 31 20 b8 20 31 35 3a f2 |? . F%=|1 . 15:.|
|00001db0| 69 72 65 61 64 67 65 6e | 28 77 68 61 6e 64 6c 65 |ireadgen|(whandle|
|00001dc0| 34 25 2c 46 25 29 3a 52 | 65 70 65 61 74 70 61 64 |4%,F%):R|epeatpad|
|00001dd0| 24 28 46 25 2b 31 29 3d | 61 24 3a ed 0d 09 ce 19 |$(F%+1)=|a$:.....|
|00001de0| 20 20 f2 6c 6f 6f 6b 6d | 75 6c 74 69 3a 66 6c 61 | .lookm|ulti:fla|
|00001df0| 67 67 25 3d 31 0d 09 d8 | 32 20 20 e3 20 46 25 3d |gg%=1...|2 . F%=|
|00001e00| 31 20 b8 20 35 30 3a 56 | 69 72 5f 50 72 6f 31 24 |1 . 50:V|ir_Pro1$|
|00001e10| 28 46 25 2c 30 29 3d 52 | 65 70 65 61 74 70 61 64 |(F%,0)=R|epeatpad|
|00001e20| 24 28 46 25 29 3a ed 0d | 09 e2 20 20 20 f2 73 65 |$(F%):..|.. .se|
|00001e30| 74 75 70 5f 56 69 72 70 | 72 6f 31 28 30 29 3a 66 |tup_Virp|ro1(0):f|
|00001e40| 6c 61 67 67 25 3d b9 0d | 09 ec 06 20 cd 0d 09 f6 |lagg%=..|... ....|
|00001e50| 16 20 e7 20 69 63 3d 31 | 37 20 84 20 69 63 3d 31 |. . ic=1|7 . ic=1|
|00001e60| 38 20 8c 0d 0a 00 28 20 | 20 e7 20 69 63 3d 31 38 |8 ....( | . ic=18|
|00001e70| 20 f2 63 61 6e 5f 63 6c | 69 63 6b 65 64 28 31 36 | .can_cl|icked(16|
|00001e80| 2c 77 68 61 6e 64 6c 65 | 34 25 29 0d 0a 0a 40 20 |,whandle|4%)...@ |
|00001e90| 20 62 6c 6f 63 6b 25 21 | 30 3d 77 68 61 6e 64 6c | block%!|0=whandl|
|00001ea0| 65 34 25 3a c8 99 22 57 | 69 6d 70 5f 43 6c 6f 73 |e4%:.."W|imp_Clos|
|00001eb0| 65 57 69 6e 64 6f 77 22 | 2c 2c 62 6c 6f 63 6b 25 |eWindow"|,,block%|
|00001ec0| 3a f2 6d 69 6e 69 5f 70 | 6f 6c 6c 0d 0a 14 2d 20 |:.mini_p|oll...- |
|00001ed0| 20 e3 20 46 25 3d 31 20 | b8 20 31 35 3a f2 69 73 | . F%=1 |. 15:.is|
|00001ee0| 65 74 67 65 6e 28 77 68 | 61 6e 64 6c 65 34 25 2c |etgen(wh|andle4%,|
|00001ef0| 46 25 2c 22 22 29 3a ed | 0d 0a 1e 34 20 20 c8 99 |F%,""):.|...4 ..|
|00001f00| 22 57 69 6d 70 5f 53 65 | 74 43 61 72 65 74 50 6f |"Wimp_Se|tCaretPo|
|00001f10| 73 69 74 69 6f 6e 22 2c | 77 68 61 6e 64 6c 65 31 |sition",|whandle1|
|00001f20| 25 2c 30 2c 30 2c 2c 2d | 31 2c 2d 31 0d 0a 28 06 |%,0,0,,-|1,-1..(.|
|00001f30| 20 cd 0d 0a 32 04 0d 0a | 3c 0b 20 f4 20 2a 2a 2a | ...2...|<. . ***|
|00001f40| 2a 0d 0a 46 22 20 c9 20 | 77 68 61 6e 64 6c 65 31 |*..F" . |whandle1|
|00001f50| 34 25 3a f4 20 70 72 69 | 6e 74 20 64 69 61 6c 6f |4%:. pri|nt dialo|
|00001f60| 67 75 65 0d 0a 50 52 20 | e7 20 69 63 3d 33 20 f2 |gue..PR |. ic=3 .|
|00001f70| 70 72 69 6e 74 63 74 72 | 6c 3a 62 6c 6f 63 6b 25 |printctr|l:block%|
|00001f80| 21 30 3d 77 68 61 6e 64 | 6c 65 31 34 25 3a c8 99 |!0=whand|le14%:..|
|00001f90| 22 57 69 6d 70 5f 43 6c | 6f 73 65 57 69 6e 64 6f |"Wimp_Cl|oseWindo|
|00001fa0| 77 22 2c 2c 62 6c 6f 63 | 6b 25 3a f2 6d 69 6e 69 |w",,bloc|k%:.mini|
|00001fb0| 5f 70 6f 6c 6c 0d 0a 5a | 3c 20 e7 20 69 63 3d 34 |_poll..Z|< . ic=4|
|00001fc0| 20 62 6c 6f 63 6b 25 21 | 30 3d 77 68 61 6e 64 6c | block%!|0=whandl|
|00001fd0| 65 31 34 25 3a c8 99 22 | 57 69 6d 70 5f 43 6c 6f |e14%:.."|Wimp_Clo|
|00001fe0| 73 65 57 69 6e 64 6f 77 | 22 2c 2c 62 6c 6f 63 6b |seWindow|",,block|
|00001ff0| 25 0d 0a 64 25 20 e7 20 | 69 63 3d 35 20 70 72 69 |%..d% . |ic=5 pri|
|00002000| 6e 74 5f 70 61 75 73 65 | 3d ac 20 70 72 69 6e 74 |nt_pause|=. print|
|00002010| 5f 70 61 75 73 65 0d 0a | 6e 04 0d 0a 78 06 20 cb |_pause..|n...x. .|
|00002020| 0d 0a 82 06 20 e1 0d 0a | 8c 10 20 f4 2d 2d 2d 2d |.... ...|.. .----|
|00002030| 2d 2d 2d 2d 2d 2d 0d 0a | 96 15 20 dd f2 76 65 72 |------..|.. ..ver|
|00002040| 69 66 79 73 68 75 74 64 | 6f 77 6e 0d 0a a0 2f 20 |ifyshutd|own.../ |
|00002050| 21 62 6c 6f 63 6b 25 3d | 30 3a f2 72 6d 28 22 57 |!block%=|0:.rm("W|
|00002060| 41 52 31 22 29 3a 24 28 | 62 6c 6f 63 6b 25 2b 34 |AR1"):$(|block%+4|
|00002070| 29 3d 74 65 78 74 24 2b | bd 30 0d 0a aa 37 20 c8 |)=text$+|.0...7 .|
|00002080| 99 22 57 69 6d 70 5f 52 | 65 70 6f 72 74 45 72 72 |."Wimp_R|eportErr|
|00002090| 6f 72 22 2c 62 6c 6f 63 | 6b 25 2c 31 39 2c 22 57 |or",bloc|k%,19,"W|
|000020a0| 61 72 6e 69 6e 67 22 20 | b8 20 2c 73 65 6c 65 63 |arning" |. ,selec|
|000020b0| 74 0d 0a b4 11 20 e7 20 | 73 65 6c 65 63 74 3d 32 |t.... . |select=2|
|000020c0| 20 e1 0d 0a be 0e 20 71 | 75 69 74 25 3d b9 3a e1 | ..... q|uit%=.:.|
|000020d0| 0d 0a c8 10 20 f4 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.... .--|--------|
|000020e0| 0d 0a d2 13 20 dd f2 6f | 70 74 69 6f 6e 73 65 6c |.... ..o|ptionsel|
|000020f0| 65 63 74 0d 0a dc 34 20 | 63 68 6f 69 63 65 25 3d |ect...4 |choice%=|
|00002100| 21 62 6c 6f 63 6b 25 3a | 63 68 6f 69 63 65 32 25 |!block%:|choice2%|
|00002110| 3d 62 6c 6f 63 6b 25 21 | 34 3a 63 72 65 61 74 65 |=block%!|4:create|
|00002120| 5f 6d 65 6e 75 3d 30 0d | 0a e6 3f 20 c8 99 22 57 |_menu=0.|..? .."W|
|00002130| 69 6d 70 5f 47 65 74 50 | 6f 69 6e 74 65 72 49 6e |imp_GetP|ointerIn|
|00002140| 66 6f 22 2c 2c 62 6c 6f | 63 6b 25 3a e7 20 62 6c |fo",,blo|ck%:. bl|
|00002150| 6f 63 6b 25 21 38 3d 31 | 20 63 72 65 61 74 65 5f |ock%!8=1| create_|
|00002160| 6d 65 6e 75 3d 31 0d 0a | fa 13 20 e7 20 4d 55 24 |menu=1..|.. . MU$|
|00002170| 3d 22 69 63 6f 6e 22 20 | 8c 0d 0b 04 21 20 20 e7 |="icon" |....! .|
|00002180| 20 63 68 6f 69 63 65 25 | 3d 31 20 f2 76 65 72 69 | choice%|=1 .veri|
|00002190| 66 79 73 68 75 74 64 6f | 77 6e 0d 0b 0e 06 20 cd |fyshutdo|wn.... .|
|000021a0| 0d 0b 22 13 20 e7 20 4d | 55 24 3d 22 73 70 72 73 |..". . M|U$="sprs|
|000021b0| 22 20 8c 0d 0b 2c 26 20 | 20 43 43 24 3d 73 70 72 |" ...,& | CC$=spr|
|000021c0| 73 24 28 31 2b 63 68 6f | 69 63 65 25 29 3a f2 6c |s$(1+cho|ice%):.l|
|000021d0| 6f 61 64 73 70 72 69 74 | 65 0d 0b 36 41 20 20 e7 |oadsprit|e..6A .|
|000021e0| 20 63 72 65 61 74 65 5f | 6d 65 6e 75 3d 31 20 c8 | create_|menu=1 .|
|000021f0| 99 22 57 69 6d 70 5f 43 | 72 65 61 74 65 4d 65 6e |."Wimp_C|reateMen|
|00002200| 75 22 2c 2c 73 70 72 73 | 6d 65 6e 75 25 2c 78 70 |u",,sprs|menu%,xp|
|00002210| 6f 73 2d 36 34 2c 79 70 | 6f 73 0d 0b 40 06 20 cd |os-64,yp|os..@. .|
|00002220| 0d 0b 54 13 20 e7 20 4d | 55 24 3d 22 6d 65 6e 75 |..T. . M|U$="menu|
|00002230| 22 20 8c 0d 0b 5e 3c 20 | 20 e7 20 63 68 6f 69 63 |" ...^< | . choic|
|00002240| 65 25 3d 31 20 70 6d 6f | 72 65 25 3d 30 3a c8 99 |e%=1 pmo|re%=0:..|
|00002250| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 4d 65 6e 75 |"Wimp_Cr|eateMenu|
|00002260| 22 2c 2c 2d 31 3a f2 70 | 72 69 6e 74 5f 69 74 0d |",,-1:.p|rint_it.|
|00002270| 0b 72 22 20 20 e7 20 63 | 68 6f 69 63 65 25 3d 32 |.r" . c|hoice%=2|
|00002280| 20 80 20 50 72 6f 63 6e | 61 6d 65 73 25 3e 30 20 | . Procn|ames%>0 |
|00002290| 8c 0d 0b 7c 18 20 20 20 | e7 20 50 72 6f 31 24 28 |...|. |. Pro1$(|
|000022a0| 31 2c 31 29 3d 22 22 20 | e1 0d 0b 86 1d 20 20 20 |1,1)="" |..... |
|000022b0| f2 6f 70 65 6e 77 69 6e | 64 6f 77 28 77 68 61 6e |.openwin|dow(whan|
|000022c0| 64 6c 65 35 25 29 0d 0b | 90 35 20 20 20 c8 99 22 |dle5%)..|.5 .."|
|000022d0| 57 69 6d 70 5f 53 65 74 | 43 61 72 65 74 50 6f 73 |Wimp_Set|CaretPos|
|000022e0| 69 74 69 6f 6e 22 2c 77 | 68 61 6e 64 6c 65 35 25 |ition",w|handle5%|
|000022f0| 2c 32 2c 30 2c 2c 2d 31 | 2c 2d 31 0d 0b 9a 13 20 |,2,0,,-1|,-1.... |
|00002300| 20 20 e3 20 6f 77 25 3d | 31 20 b8 20 31 35 0d 0b | . ow%=|1 . 15..|
|00002310| a4 38 20 20 20 f2 69 73 | 65 74 67 65 6e 28 77 68 |.8 .is|etgen(wh|
|00002320| 61 6e 64 6c 65 35 25 2c | 6f 77 25 2c 50 72 6f 31 |andle5%,|ow%,Pro1|
|00002330| 24 28 6f 77 25 2c 28 63 | 68 6f 69 63 65 32 25 2b |$(ow%,(c|hoice2%+|
|00002340| 31 29 29 29 3a ed 0d 0b | ae 1c 20 20 20 70 72 6f |1))):...|.. pro|
|00002350| 63 5f 70 6f 69 6e 74 3d | 63 68 6f 69 63 65 32 25 |c_point=|choice2%|
|00002360| 2b 31 0d 0b b8 1e 20 20 | 20 c8 99 22 57 69 6d 70 |+1.... | .."Wimp|
|00002370| 5f 43 72 65 61 74 65 4d | 65 6e 75 22 2c 2c 2d 31 |_CreateM|enu",,-1|
|00002380| 0d 0b c2 07 20 20 cd 0d | 0b d6 1c 20 20 e7 20 63 |.... ..|... . c|
|00002390| 68 6f 69 63 65 25 3d 33 | 20 f2 65 72 61 73 65 70 |hoice%=3| .erasep|
|000023a0| 72 6f 63 0d 0b e0 63 20 | 20 e7 20 63 68 6f 69 63 |roc...c | . choic|
|000023b0| 65 25 3d 34 20 80 20 63 | 68 6f 69 63 65 32 25 3c |e%=4 . c|hoice2%<|
|000023c0| 3e 2d 31 20 70 6d 6f 72 | 65 25 3d 32 3a 70 6d 6f |>-1 pmor|e%=2:pmo|
|000023d0| 72 65 5f 6e 75 6d 62 65 | 72 3d 63 68 6f 69 63 65 |re_numbe|r=choice|
|000023e0| 32 25 2b 31 3a c8 99 22 | 57 69 6d 70 5f 43 72 65 |2%+1:.."|Wimp_Cre|
|000023f0| 61 74 65 4d 65 6e 75 22 | 2c 2c 2d 31 3a f2 70 72 |ateMenu"|,,-1:.pr|
|00002400| 69 6e 74 5f 69 74 0d 0b | ea 63 20 20 e7 20 63 68 |int_it..|.c . ch|
|00002410| 6f 69 63 65 25 3d 35 20 | 80 20 50 72 6f 63 6e 61 |oice%=5 |. Procna|
|00002420| 6d 65 73 25 3e 30 20 70 | 6d 6f 72 65 25 3d 33 3a |mes%>0 p|more%=3:|
|00002430| 70 6d 6f 72 65 5f 6e 75 | 6d 62 65 72 3d 63 68 6f |pmore_nu|mber=cho|
|00002440| 69 63 65 32 25 2b 31 3a | c8 99 22 57 69 6d 70 5f |ice2%+1:|.."Wimp_|
|00002450| 43 72 65 61 74 65 4d 65 | 6e 75 22 2c 2c 2d 31 3a |CreateMe|nu",,-1:|
|00002460| f2 70 72 69 6e 74 5f 69 | 74 0d 0b f4 48 20 20 e7 |.print_i|t...H .|
|00002470| 20 63 68 6f 69 63 65 25 | 3d 36 20 80 20 63 68 6f | choice%|=6 . cho|
|00002480| 69 63 65 32 25 3c 3e 2d | 31 20 80 20 50 72 6f 31 |ice2%<>-|1 . Pro1|
|00002490| 24 28 31 2c 31 29 3c 3e | 22 22 20 f2 6f 70 65 6e |$(1,1)<>|"" .open|
|000024a0| 77 69 6e 64 6f 77 28 77 | 68 61 6e 64 6c 65 38 25 |window(w|handle8%|
|000024b0| 29 0d 0b fe 1b 20 20 e7 | 20 63 68 6f 69 63 65 25 |).... .| choice%|
|000024c0| 3d 38 20 f2 65 72 61 73 | 65 76 61 72 0d 0c 08 14 |=8 .eras|evar....|
|000024d0| 20 20 e7 20 63 68 6f 69 | 63 65 25 3d 31 32 20 8c | . choi|ce%=12 .|
|000024e0| 0d 0c 12 36 20 20 20 62 | 6c 6f 63 6b 25 21 30 3d |...6 b|lock%!0=|
|000024f0| 77 68 61 6e 64 6c 65 37 | 25 3a c8 99 22 57 69 6d |whandle7|%:.."Wim|
|00002500| 70 5f 43 6c 6f 73 65 57 | 69 6e 64 6f 77 22 2c 2c |p_CloseW|indow",,|
|00002510| 62 6c 6f 63 6b 25 0d 0c | 1c 29 20 20 20 68 65 6c |block%..|.) hel|
|00002520| 70 5f 70 61 67 65 3d 31 | 3a f2 6f 70 65 6e 77 69 |p_page=1|:.openwi|
|00002530| 6e 64 6f 77 28 77 68 61 | 6e 64 6c 65 37 25 29 0d |ndow(wha|ndle7%).|
|00002540| 0c 26 07 20 20 cd 0d 0c | 3a 14 20 20 e7 20 63 68 |.&. ...|:. . ch|
|00002550| 6f 69 63 65 25 3d 31 31 | 20 8c 0d 0c 44 17 20 20 |oice%=11| ...D. |
|00002560| 20 e7 20 63 68 6f 69 63 | 65 32 25 3c 3e 2d 31 20 | . choic|e2%<>-1 |
|00002570| 8c 0d 0c 4e 29 20 20 20 | 20 43 43 24 3d 73 70 72 |...N) | CC$=spr|
|00002580| 73 24 28 31 2b 63 68 6f | 69 63 65 32 25 29 3a f2 |s$(1+cho|ice2%):.|
|00002590| 6c 6f 61 64 73 70 72 69 | 74 65 0d 0c 58 08 20 20 |loadspri|te..X. |
|000025a0| 20 cd 0d 0c 62 07 20 20 | cd 0d 0c 76 2f 20 20 e7 | ...b. |...v/ .|
|000025b0| 20 63 68 6f 69 63 65 25 | 3d 31 34 20 80 20 63 68 | choice%|=14 . ch|
|000025c0| 6f 69 63 65 32 25 3c 3e | 2d 31 20 f2 6c 6f 61 64 |oice2%<>|-1 .load|
|000025d0| 6e 65 77 73 6f 75 6e 64 | 0d 0c 80 1e 20 e7 20 63 |newsound|.... . c|
|000025e0| 72 65 61 74 65 5f 6d 65 | 6e 75 3d 31 20 f2 64 72 |reate_me|nu=1 .dr|
|000025f0| 61 77 6d 61 69 6e 0d 0c | 8a 06 20 cd 0d 0c 9e 06 |awmain..|.. .....|
|00002600| 20 e1 0d 0c a8 10 20 f4 | 2d 2d 2d 2d 2d 2d 2d 2d | ..... .|--------|
|00002610| 2d 2d 0d 0c b2 2c 20 dd | a4 54 65 6d 70 28 54 24 |--..., .|.Temp(T$|
|00002620| 29 3a 24 69 64 65 6e 74 | 25 3d 54 24 3a ea 20 68 |):$ident|%=T$:. h|
|00002630| 25 3a 77 64 61 25 3d 77 | 64 61 74 61 31 25 0d 0c |%:wda%=w|data1%..|
|00002640| c6 4a 20 c8 99 22 57 69 | 6d 70 5f 4c 6f 61 64 54 |.J .."Wi|mp_LoadT|
|00002650| 65 6d 70 6c 61 74 65 22 | 2c 2c 62 6c 6f 63 6b 25 |emplate"|,,block%|
|00002660| 2c 77 64 61 74 61 31 25 | 2c 77 64 31 65 6e 64 25 |,wdata1%|,wd1end%|
|00002670| 2c 2d 31 2c 69 64 65 6e | 74 25 2c 30 20 b8 20 2c |,-1,iden|t%,0 . ,|
|00002680| 2c 77 64 61 74 61 31 25 | 0d 0c d0 18 20 62 6c 6f |,wdata1%|.... blo|
|00002690| 63 6b 25 21 36 34 3d 69 | 63 6f 6e 73 70 61 63 65 |ck%!64=i|conspace|
|000026a0| 0d 0c da 26 20 e7 20 54 | 24 3d 22 44 69 73 70 6c |...& . T|$="Displ|
|000026b0| 61 79 22 20 f2 73 65 74 | 5f 64 69 73 70 6c 61 79 |ay" .set|_display|
|000026c0| 5f 69 63 6f 6e 73 0d 0c | e4 4d 20 e7 20 54 24 3d |_icons..|.M . T$=|
|000026d0| 22 50 72 6f 63 22 20 62 | 6c 6f 63 6b 25 21 28 38 |"Proc" b|lock%!(8|
|000026e0| 38 2b 30 2a 33 32 2b 32 | 34 29 3d 69 63 6f 6e 73 |8+0*32+2|4)=icons|
|000026f0| 70 61 63 65 3a 62 6c 6f | 63 6b 25 21 28 38 38 2b |pace:blo|ck%!(88+|
|00002700| 31 36 2a 33 32 2b 32 34 | 29 3d 69 63 6f 6e 73 70 |16*32+24|)=iconsp|
|00002710| 61 63 65 0d 0c ee 50 20 | e7 20 54 24 3d 22 50 61 |ace...P |. T$="Pa|
|00002720| 64 6c 69 73 74 22 20 62 | 6c 6f 63 6b 25 21 28 38 |dlist" b|lock%!(8|
|00002730| 38 2b 30 2a 33 32 2b 32 | 34 29 3d 69 63 6f 6e 73 |8+0*32+2|4)=icons|
|00002740| 70 61 63 65 3a 62 6c 6f | 63 6b 25 21 28 38 38 2b |pace:blo|ck%!(88+|
|00002750| 31 36 2a 33 32 2b 32 34 | 29 3d 69 63 6f 6e 73 70 |16*32+24|)=iconsp|
|00002760| 61 63 65 0d 0c f8 50 20 | e7 20 54 24 3d 22 48 65 |ace...P |. T$="He|
|00002770| 6c 70 49 6e 66 6f 22 20 | 62 6c 6f 63 6b 25 21 28 |lpInfo" |block%!(|
|00002780| 38 38 2b 30 2a 33 32 2b | 32 34 29 3d 69 63 6f 6e |88+0*32+|24)=icon|
|00002790| 73 70 61 63 65 3a 62 6c | 6f 63 6b 25 21 28 38 38 |space:bl|ock%!(88|
|000027a0| 2b 31 2a 33 32 2b 32 34 | 29 3d 69 63 6f 6e 73 70 |+1*32+24|)=iconsp|
|000027b0| 61 63 65 0d 0d 02 4d 20 | e7 20 54 24 3d 22 70 72 |ace...M |. T$="pr|
|000027c0| 69 6e 74 22 20 62 6c 6f | 63 6b 25 21 28 38 38 2b |int" blo|ck%!(88+|
|000027d0| 32 2a 33 32 2b 32 34 29 | 3d 69 63 6f 6e 73 70 61 |2*32+24)|=iconspa|
|000027e0| 63 65 3a 62 6c 6f 63 6b | 25 21 28 38 38 2b 31 2a |ce:block|%!(88+1*|
|000027f0| 33 32 2b 32 34 29 3d 69 | 63 6f 6e 73 70 61 63 65 |32+24)=i|conspace|
|00002800| 0d 0d 0c 32 20 e7 20 54 | 24 3d 22 65 72 72 6f 72 |...2 . T|$="error|
|00002810| 62 6f 78 22 20 62 6c 6f | 63 6b 25 21 28 38 38 2b |box" blo|ck%!(88+|
|00002820| 31 2a 33 32 2b 32 34 29 | 3d 69 63 6f 6e 73 70 61 |1*32+24)|=iconspa|
|00002830| 63 65 0d 0d 0e 2d 20 e7 | 20 54 24 3d 22 72 65 67 |ce...- .| T$="reg|
|00002840| 22 20 62 6c 6f 63 6b 25 | 21 28 38 38 2b 34 2a 33 |" block%|!(88+4*3|
|00002850| 32 2b 32 34 29 3d 69 63 | 6f 6e 73 70 61 63 65 0d |2+24)=ic|onspace.|
|00002860| 0d 16 27 20 c8 99 22 57 | 69 6d 70 5f 43 72 65 61 |..' .."W|imp_Crea|
|00002870| 74 65 57 69 6e 64 6f 77 | 22 2c 2c 62 6c 6f 63 6b |teWindow|",,block|
|00002880| 25 20 b8 20 68 25 0d 0d | 20 08 20 3d 68 25 0d 0d |% . h%..| . =h%..|
|00002890| 2a 10 20 f4 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 0d |*. .----|------..|
|000028a0| 34 1f 20 dd f2 73 65 74 | 5f 64 69 73 70 6c 61 79 |4. ..set|_display|
|000028b0| 5f 69 63 6f 6e 73 3a f7 | 20 8d 44 48 4d 0d 0d 48 |_icons:.| .DHM..H|
|000028c0| 54 20 dc 20 35 2c 37 2c | 38 2c 31 30 2c 31 31 2c |T . 5,7,|8,10,11,|
|000028d0| 31 32 2c 31 33 2c 31 34 | 2c 31 35 2c 31 36 2c 31 |12,13,14|,15,16,1|
|000028e0| 37 2c 31 38 2c 31 39 2c | 32 30 2c 32 31 2c 32 32 |7,18,19,|20,21,22|
|000028f0| 2c 32 33 2c 32 34 2c 32 | 35 2c 32 36 2c 32 37 2c |,23,24,2|5,26,27,|
|00002900| 32 38 2c 32 39 2c 33 30 | 2c 33 32 2c 33 33 2c 2d |28,29,30|,32,33,-|
|00002910| 31 0d 0d 52 06 20 f5 0d | 0d 5c 2e 20 20 f3 20 41 |1..R. ..|.\. . A|
|00002920| 3a e7 20 41 3e 2d 31 20 | 62 6c 6f 63 6b 25 21 28 |:. A>-1 |block%!(|
|00002930| 38 38 2b 41 2a 33 32 2b | 32 34 29 3d 69 63 6f 6e |88+A*32+|24)=icon|
|00002940| 73 70 61 63 65 0d 0d 66 | 22 20 fd 20 41 3d 2d 31 |space..f|" . A=-1|
|00002950| 3a 62 6c 6f 63 6b 25 21 | 31 32 3d 73 63 72 65 65 |:block%!|12=scree|
|00002960| 6e 5f 74 6f 70 3a e1 0d | 0d 70 10 20 f4 2d 2d 2d |n_top:..|.p. .---|
|00002970| 2d 2d 2d 2d 2d 2d 2d 0d | 0d 7a 16 20 dd f2 65 72 |-------.|.z. ..er|
|00002980| 72 6f 72 3a 21 62 6c 6f | 63 6b 25 3d 9f 0d 0d 8e |ror:!blo|ck%=....|
|00002990| 36 20 24 28 62 6c 6f 63 | 6b 25 2b 34 29 3d f6 24 |6 $(bloc|k%+4)=.$|
|000029a0| 2b 22 20 28 69 6e 74 65 | 72 6e 61 6c 20 65 72 72 |+" (inte|rnal err|
|000029b0| 6f 72 20 63 6f 64 65 20 | 22 2b c3 9e 2b 22 29 22 |or code |"+..+")"|
|000029c0| 2b bd 30 0d 0d 98 36 20 | f2 72 6d 28 22 45 52 52 |+.0...6 |.rm("ERR|
|000029d0| 31 22 29 3a c8 99 22 57 | 69 6d 70 5f 52 65 70 6f |1"):.."W|imp_Repo|
|000029e0| 72 74 45 72 72 6f 72 22 | 2c 62 6c 6f 63 6b 25 2c |rtError"|,block%,|
|000029f0| 31 2c 74 65 78 74 24 3a | e1 0d 0d a2 10 20 f4 2d |1,text$:|..... .-|
|00002a00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 0d ac 36 20 dd a4 |--------|-...6 ..|
|00002a10| 77 69 6d 70 65 72 72 6f | 72 3a f2 64 72 61 77 74 |wimperro|r:.drawt|
|00002a20| 75 72 74 6c 65 3a f2 67 | 72 61 62 69 74 3a 61 62 |urtle:.g|rabit:ab|
|00002a30| 6f 72 74 3d 31 3a 21 62 | 6c 6f 63 6b 25 3d 9f 0d |ort=1:!b|lock%=..|
|00002a40| 0d c0 32 20 24 28 62 6c | 6f 63 6b 25 2b 34 29 3d |..2 $(bl|ock%+4)=|
|00002a50| f6 24 2b 22 20 28 22 2b | c3 9f 2b 22 29 20 61 74 |.$+" ("+|..+") at|
|00002a60| 20 6c 69 6e 65 20 22 2b | c3 9e 2b 22 20 22 2b bd | line "+|..+" "+.|
|00002a70| 30 0d 0d ca 34 20 f2 72 | 6d 28 22 45 52 52 31 22 |0...4 .r|m("ERR1"|
|00002a80| 29 3a c8 99 22 57 69 6d | 70 5f 52 65 70 6f 72 74 |):.."Wim|p_Report|
|00002a90| 45 72 72 6f 72 22 2c 62 | 6c 6f 63 6b 25 2c 31 2c |Error",b|lock%,1,|
|00002aa0| 74 65 78 74 24 0d 0d d4 | 97 20 62 6c 6f 63 6b 25 |text$...|. block%|
|00002ab0| 21 30 3d 77 68 61 6e 64 | 6c 65 33 25 3a c8 99 20 |!0=whand|le3%:.. |
|00002ac0| 22 57 69 6d 70 5f 43 6c | 6f 73 65 57 69 6e 64 6f |"Wimp_Cl|oseWindo|
|00002ad0| 77 22 2c 2c 62 6c 6f 63 | 6b 25 3a 62 6c 6f 63 6b |w",,bloc|k%:block|
|00002ae0| 25 21 30 3d 77 68 61 6e | 64 6c 65 32 25 3a c8 99 |%!0=whan|dle2%:..|
|00002af0| 20 22 57 69 6d 70 5f 43 | 6c 6f 73 65 57 69 6e 64 | "Wimp_C|loseWind|
|00002b00| 6f 77 22 2c 2c 62 6c 6f | 63 6b 25 3a 62 6c 6f 63 |ow",,blo|ck%:bloc|
|00002b10| 6b 25 21 30 3d 77 68 61 | 6e 64 6c 65 31 25 3a c8 |k%!0=wha|ndle1%:.|
|00002b20| 99 20 22 57 69 6d 70 5f | 43 6c 6f 73 65 57 69 6e |. "Wimp_|CloseWin|
|00002b30| 64 6f 77 22 2c 2c 62 6c | 6f 63 6b 25 0d 0d de 07 |dow",,bl|ock%....|
|00002b40| 20 3d b9 0d 0d e8 10 20 | f4 2d 2d 2d 2d 2d 2d 2d | =..... |.-------|
|00002b50| 2d 2d 2d 0d 0d f2 40 20 | dd a4 69 63 6f 6e 64 65 |---...@ |..iconde|
|00002b60| 66 28 77 68 61 6e 64 6c | 65 25 2c 69 78 25 2c 69 |f(whandl|e%,ix%,i|
|00002b70| 79 25 2c 69 77 25 2c 69 | 68 25 2c 66 6c 61 67 25 |y%,iw%,i|h%,flag%|
|00002b80| 2c 74 65 78 74 24 2c 64 | 31 25 2c 64 32 25 2c 64 |,text$,d|1%,d2%,d|
|00002b90| 33 25 29 0d 0d fc 30 20 | 62 6c 6f 63 6b 25 21 30 |3%)...0 |block%!0|
|00002ba0| 3d 77 68 61 6e 64 6c 65 | 25 3a 62 6c 6f 63 6b 25 |=whandle|%:block%|
|00002bb0| 21 34 3d 69 78 25 3a 62 | 6c 6f 63 6b 25 21 38 3d |!4=ix%:b|lock%!8=|
|00002bc0| 69 79 25 0d 0e 06 38 20 | 62 6c 6f 63 6b 25 21 31 |iy%...8 |block%!1|
|00002bd0| 32 3d 69 78 25 2b 69 77 | 25 3a 62 6c 6f 63 6b 25 |2=ix%+iw|%:block%|
|00002be0| 21 31 36 3d 69 79 25 2b | 69 68 25 3a 62 6c 6f 63 |!16=iy%+|ih%:bloc|
|00002bf0| 6b 25 21 32 30 3d 66 6c | 61 67 25 0d 0e 10 0e 20 |k%!20=fl|ag%.... |
|00002c00| e7 20 64 31 25 3d 30 20 | 8c 0d 0e 1a 18 20 20 24 |. d1%=0 |..... $|
|00002c10| 28 62 6c 6f 63 6b 25 2b | 32 34 29 3d 74 65 78 74 |(block%+|24)=text|
|00002c20| 24 0d 0e 24 06 20 cc 0d | 0e 2e 2f 20 20 62 6c 6f |$..$. ..|../ blo|
|00002c30| 63 6b 25 21 32 34 3d 64 | 31 25 3a 62 6c 6f 63 6b |ck%!24=d|1%:block|
|00002c40| 25 21 32 38 3d 64 32 25 | 3a 62 6c 6f 63 6b 25 21 |%!28=d2%|:block%!|
|00002c50| 33 32 3d 64 33 25 0d 0e | 38 06 20 cd 0d 0e 42 2c |32=d3%..|8. ...B,|
|00002c60| 20 c8 99 20 22 57 69 6d | 70 5f 43 72 65 61 74 65 | .. "Wim|p_Create|
|00002c70| 49 63 6f 6e 22 2c 2c 62 | 6c 6f 63 6b 25 20 b8 20 |Icon",,b|lock% . |
|00002c80| 69 68 61 6e 64 6c 65 25 | 0d 0e 4c 0e 20 3d 69 68 |ihandle%|..L. =ih|
|00002c90| 61 6e 64 6c 65 25 0d 0e | 56 10 20 f4 2d 2d 2d 2d |andle%..|V. .----|
|00002ca0| 2d 2d 2d 2d 2d 2d 0d 0e | 60 5f 20 dd f2 6f 70 65 |------..|`_ ..ope|
|00002cb0| 6e 77 69 6e 64 6f 77 28 | 47 25 29 3a 62 6c 6f 63 |nwindow(|G%):bloc|
|00002cc0| 6b 25 21 30 3d 47 25 3a | c8 99 22 57 69 6d 70 5f |k%!0=G%:|.."Wimp_|
|00002cd0| 47 65 74 57 69 6e 64 6f | 77 53 74 61 74 65 22 2c |GetWindo|wState",|
|00002ce0| 2c 62 6c 6f 63 6b 25 3a | c8 99 22 57 69 6d 70 5f |,block%:|.."Wimp_|
|00002cf0| 4f 70 65 6e 57 69 6e 64 | 6f 77 22 2c 2c 62 6c 6f |OpenWind|ow",,blo|
|00002d00| 63 6b 25 3a e1 0d 0e 7e | 10 20 f4 2d 2d 2d 2d 2d |ck%:...~|. .-----|
|00002d10| 2d 2d 2d 2d 2d 0d 0e 88 | 2a 20 dd f2 64 72 61 77 |-----...|* ..draw|
|00002d20| 6d 65 6e 75 28 6d 25 2c | 6d 65 6e 75 24 2c 78 25 |menu(m%,|menu$,x%|
|00002d30| 2c 79 25 2c 6f 6e 69 63 | 6f 6e 62 61 72 25 29 0d |,y%,onic|onbar%).|
|00002d40| 0e 92 4a 20 6d 25 3f 31 | 32 3d 37 3a 6d 25 3f 31 |..J m%?1|2=7:m%?1|
|00002d50| 33 3d 32 3a 6d 25 3f 31 | 34 3d 37 3a 6d 25 3f 31 |3=2:m%?1|4=7:m%?1|
|00002d60| 35 3d 30 3a 6d 25 21 31 | 36 3d 32 30 30 3a 6d 25 |5=0:m%!1|6=200:m%|
|00002d70| 21 32 30 3d 34 34 3a 6d | 25 21 32 34 3d 30 3a 70 |!20=44:m|%!24=0:p|
|00002d80| 74 72 25 3d 6d 25 2b 32 | 38 0d 0e 9c 34 20 24 6d |tr%=m%+2|8...4 $m|
|00002d90| 25 3d c0 6d 65 6e 75 24 | 2c a7 6d 65 6e 75 24 2c |%=.menu$|,.menu$,|
|00002da0| 22 2c 22 29 2d 31 29 3a | 6d 65 6e 75 24 2b 3d 22 |",")-1):|menu$+="|
|00002db0| 2c 22 3a 65 6e 74 72 69 | 65 73 25 3d 30 0d 0e a6 |,":entri|es%=0...|
|00002dc0| 11 20 c8 95 20 6d 65 6e | 75 24 3c 3e 22 22 0d 0e |. .. men|u$<>""..|
|00002dd0| b0 20 20 6d 65 6e 75 24 | 3d c1 6d 65 6e 75 24 2c |. menu$|=.menu$,|
|00002de0| a7 6d 65 6e 75 24 2c 22 | 2c 22 29 2b 31 29 0d 0e |.menu$,"|,")+1)..|
|00002df0| ba 12 20 e7 20 6d 65 6e | 75 24 3c 3e 22 22 20 8c |.. . men|u$<>"" .|
|00002e00| 0d 0e c4 28 20 20 70 74 | 72 25 21 30 3d 30 3a 70 |...( pt|r%!0=0:p|
|00002e10| 74 72 25 21 34 3d 2d 31 | 3a 70 74 72 25 21 38 3d |tr%!4=-1|:ptr%!8=|
|00002e20| 26 37 30 30 30 30 32 31 | 0d 0e ce 3b 20 20 24 28 |&7000021|...; $(|
|00002e30| 70 74 72 25 2b 31 32 29 | 3d c0 6d 65 6e 75 24 2c |ptr%+12)|=.menu$,|
|00002e40| a7 6d 65 6e 75 24 2c 22 | 2c 22 29 2d 31 29 3a 70 |.menu$,"|,")-1):p|
|00002e50| 74 72 25 2b 3d 32 34 3a | 65 6e 74 72 69 65 73 25 |tr%+=24:|entries%|
|00002e60| 2b 3d 31 0d 0e d8 06 20 | cd 0d 0e e2 06 20 ce 0d |+=1.... |..... ..|
|00002e70| 0e ec 39 20 70 74 72 25 | 21 2d 32 34 3d 70 74 72 |..9 ptr%|!-24=ptr|
|00002e80| 25 21 2d 32 34 20 84 20 | 26 38 30 3a e7 20 6f 6e |%!-24 . |&80:. on|
|00002e90| 69 63 6f 6e 62 61 72 25 | 20 6d 25 21 33 32 3d 77 |iconbar%| m%!32=w|
|00002ea0| 68 61 6e 64 6c 65 32 25 | 0d 0e f6 36 20 e7 20 6f |handle2%|...6 . o|
|00002eb0| 6e 69 63 6f 6e 62 61 72 | 25 20 8c 20 79 70 6f 73 |niconbar|% . ypos|
|00002ec0| 25 3d 39 36 2b 65 6e 74 | 72 69 65 73 25 2a 34 34 |%=96+ent|ries%*44|
|00002ed0| 20 8b 20 79 70 6f 73 25 | 3d 79 25 2b 32 30 0d 0f | . ypos%|=y%+20..|
|00002ee0| 00 2a 20 c8 99 22 57 69 | 6d 70 5f 43 72 65 61 74 |.* .."Wi|mp_Creat|
|00002ef0| 65 4d 65 6e 75 22 2c 2c | 6d 25 2c 78 25 2d 36 34 |eMenu",,|m%,x%-64|
|00002f00| 2c 79 70 6f 73 25 3a e1 | 0d 0f 0a 10 20 f4 2d 2d |,ypos%:.|.... .--|
|00002f10| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 0f 14 69 20 dd f2 67 |--------|...i ..g|
|00002f20| 65 74 6f 72 69 67 69 6e | 28 62 6c 6f 63 6b 25 29 |etorigin|(block%)|
|00002f30| 3a 78 30 25 3d 62 6c 6f | 63 6b 25 21 34 2d 62 6c |:x0%=blo|ck%!4-bl|
|00002f40| 6f 63 6b 25 21 32 30 3a | 79 30 25 3d 28 62 6c 6f |ock%!20:|y0%=(blo|
|00002f50| 63 6b 25 21 31 36 2d 62 | 6c 6f 63 6b 25 21 32 34 |ck%!16-b|lock%!24|
|00002f60| 29 3a e7 20 77 69 6e 64 | 6f 77 25 3d 77 68 61 6e |):. wind|ow%=whan|
|00002f70| 64 6c 65 31 25 20 79 30 | 25 3d 79 30 25 2d 38 35 |dle1% y0|%=y0%-85|
|00002f80| 32 0d 0f 32 24 20 e7 20 | 77 69 6e 64 6f 77 25 3d |2..2$ . |window%=|
|00002f90| 77 68 61 6e 64 6c 65 34 | 25 20 79 30 25 3d 79 30 |whandle4|% y0%=y0|
|00002fa0| 25 2d 36 38 36 0d 0f 3c | 24 20 e7 20 77 69 6e 64 |%-686..<|$ . wind|
|00002fb0| 6f 77 25 3d 77 68 61 6e | 64 6c 65 35 25 20 79 30 |ow%=whan|dle5% y0|
|00002fc0| 25 3d 79 30 25 2d 36 38 | 36 0d 0f 46 24 20 e7 20 |%=y0%-68|6..F$ . |
|00002fd0| 77 69 6e 64 6f 77 25 3d | 77 68 61 6e 64 6c 65 39 |window%=|whandle9|
|00002fe0| 25 20 79 30 25 3d 79 30 | 25 2d 34 31 30 0d 0f 50 |% y0%=y0|%-410..P|
|00002ff0| 06 20 e1 0d 0f 5a 10 20 | f4 2d 2d 2d 2d 2d 2d 2d |. ...Z. |.-------|
|00003000| 2d 2d 2d 0d 0f 64 44 20 | dd f2 72 65 64 72 61 77 |---..dD |..redraw|
|00003010| 3a 77 69 6e 64 6f 77 25 | 3d 62 6c 6f 63 6b 25 21 |:window%|=block%!|
|00003020| 30 3a c8 99 22 57 69 6d | 70 5f 52 65 64 72 61 77 |0:.."Wim|p_Redraw|
|00003030| 57 69 6e 64 6f 77 22 2c | 2c 62 6c 6f 63 6b 25 20 |Window",|,block% |
|00003040| b8 20 6d 6f 72 65 25 0d | 0f 82 0d 20 c8 95 20 6d |. more%.|... .. m|
|00003050| 6f 72 65 25 0d 0f 86 17 | 20 f2 67 65 74 6f 72 69 |ore%....| .getori|
|00003060| 67 69 6e 28 62 6c 6f 63 | 6b 25 29 0d 0f 87 40 20 |gin(bloc|k%)...@ |
|00003070| 67 78 30 25 3d 62 6c 6f | 63 6b 25 21 32 38 3a 67 |gx0%=blo|ck%!28:g|
|00003080| 79 30 25 3d 62 6c 6f 63 | 6b 25 21 33 32 3a 67 78 |y0%=bloc|k%!32:gx|
|00003090| 31 25 3d 62 6c 6f 63 6b | 25 21 33 36 3a 67 79 31 |1%=block|%!36:gy1|
|000030a0| 25 3d 62 6c 6f 63 6b 25 | 21 34 30 0d 0f 88 38 20 |%=block%|!40...8 |
|000030b0| 67 78 30 25 3d 28 67 78 | 30 25 2d 78 30 25 29 81 |gx0%=(gx|0%-x0%).|
|000030c0| 33 32 2a 33 32 2b 78 30 | 25 3a 67 79 31 25 3d 28 |32*32+x0|%:gy1%=(|
|000030d0| 67 79 31 25 2d 79 30 25 | 29 81 33 32 2a 33 32 2b |gy1%-y0%|).32*32+|
|000030e0| 79 30 25 0d 0f 96 11 20 | c8 8e 20 77 69 6e 64 6f |y0%.... |.. windo|
|000030f0| 77 25 20 ca 0d 0f 97 10 | 20 c9 20 77 68 61 6e 64 |w% .....| . whand|
|00003100| 6c 65 31 25 0d 0f a0 26 | 20 20 f2 74 65 78 74 62 |le1%...&| .textb|
|00003110| 6f 78 28 78 30 25 2b 32 | 30 2c 79 30 25 2b 36 34 |ox(x0%+2|0,y0%+64|
|00003120| 2c 36 35 32 2c 31 30 30 | 38 29 0d 0f a4 52 20 20 |,652,100|8)...R |
|00003130| e7 20 a4 69 6e 74 65 72 | 73 65 63 74 28 78 30 25 |. .inter|sect(x0%|
|00003140| 2b 31 36 2c 79 30 25 2d | 31 38 2c 78 30 25 2b 31 |+16,y0%-|18,x0%+1|
|00003150| 30 33 32 2c 79 30 25 2b | 34 38 29 20 f2 74 65 78 |032,y0%+|48) .tex|
|00003160| 74 62 6f 78 32 28 78 30 | 25 2b 32 30 2c 79 30 25 |tbox2(x0|%+20,y0%|
|00003170| 2d 31 34 2c 31 30 30 38 | 2c 36 30 29 0d 0f a5 36 |-14,1008|,60)...6|
|00003180| 20 20 e7 20 a4 69 6e 74 | 65 72 73 65 63 74 28 78 | . .int|ersect(x|
|00003190| 30 25 2b 31 31 38 2c 79 | 30 25 2b 37 36 30 2c 78 |0%+118,y|0%+760,x|
|000031a0| 30 25 2b 31 30 33 32 2c | 79 30 25 2b 38 35 30 29 |0%+1032,|y0%+850)|
|000031b0| 20 8c 0d 0f ac 28 20 20 | 20 f2 74 65 78 74 62 6f | ....( | .textbo|
|000031c0| 78 32 28 78 30 25 2b 31 | 32 32 2c 79 30 25 2b 37 |x2(x0%+1|22,y0%+7|
|000031d0| 38 36 2c 31 39 36 2c 35 | 32 29 0d 0f ae 27 20 20 |86,196,5|2)...' |
|000031e0| 20 f2 74 65 78 74 62 6f | 78 32 28 78 30 25 2b 34 | .textbo|x2(x0%+4|
|000031f0| 31 38 2c 79 30 25 2b 37 | 38 36 2c 36 38 2c 35 32 |18,y0%+7|86,68,52|
|00003200| 29 0d 0f b4 28 20 20 20 | f2 74 65 78 74 62 6f 78 |)...( |.textbox|
|00003210| 32 28 78 30 25 2b 37 36 | 38 2c 79 30 25 2b 37 38 |2(x0%+76|8,y0%+78|
|00003220| 36 2c 32 36 30 2c 35 32 | 29 0d 0f b7 07 20 20 cd |6,260,52|).... .|
|00003230| 0d 0f be 3c 20 20 c8 99 | 22 4f 53 5f 53 70 72 69 |...< ..|"OS_Spri|
|00003240| 74 65 4f 70 22 2c 32 39 | 30 2c 67 72 61 62 5f 6d |teOp",29|0,grab_m|
|00003250| 65 6d 73 74 61 72 74 2c | 22 61 72 65 61 22 2c 78 |emstart,|"area",x|
|00003260| 30 25 2b 32 34 2c 79 30 | 25 2b 36 38 0d 0f c8 04 |0%+24,y0|%+68....|
|00003270| 0d 0f d2 18 20 f4 20 72 | 65 70 65 61 74 20 77 69 |.... . r|epeat wi|
|00003280| 6e 64 6f 77 2e 2e 2e 2e | 0d 0f dc 31 20 c9 20 77 |ndow....|...1 . w|
|00003290| 68 61 6e 64 6c 65 34 25 | 3a f2 74 65 78 74 62 6f |handle4%|:.textbo|
|000032a0| 78 28 78 30 25 2b 31 36 | 2c 79 30 25 2b 31 30 38 |x(x0%+16|,y0%+108|
|000032b0| 2c 35 34 38 2c 35 31 36 | 29 0d 0f e6 04 0d 0f f0 |,548,516|).......|
|000032c0| 15 20 f4 20 70 72 6f 63 | 20 77 69 6e 64 6f 77 2e |. . proc| window.|
|000032d0| 2e 2e 0d 0f fa 31 20 c9 | 20 77 68 61 6e 64 6c 65 |.....1 .| whandle|
|000032e0| 35 25 3a f2 74 65 78 74 | 62 6f 78 28 78 30 25 2b |5%:.text|box(x0%+|
|000032f0| 31 36 2c 79 30 25 2b 31 | 30 38 2c 35 34 38 2c 35 |16,y0%+1|08,548,5|
|00003300| 31 36 29 0d 10 04 04 0d | 10 0e 10 20 c9 20 77 68 |16).....|... . wh|
|00003310| 61 6e 64 6c 65 37 25 0d | 10 18 2d 20 78 78 3d 78 |andle7%.|..- xx=x|
|00003320| 30 25 2b 31 36 3a 79 79 | 3d 79 30 25 2d 33 32 3a |0%+16:yy|=y0%-32:|
|00003330| c8 99 22 57 69 6d 70 5f | 53 65 74 43 6f 6c 6f 75 |.."Wimp_|SetColou|
|00003340| 72 22 2c 38 0d 10 22 39 | 20 ec 20 78 30 25 2b 32 |r",8.."9| . x0%+2|
|00003350| 38 30 2d 28 31 36 2a a9 | c3 28 68 65 6c 70 5f 70 |80-(16*.|.(help_p|
|00003360| 61 67 65 29 29 2f 32 2c | 79 30 25 2d 37 31 30 3a |age))/2,|y0%-710:|
|00003370| f1 c3 28 68 65 6c 70 5f | 70 61 67 65 29 0d 10 2c |..(help_|page)..,|
|00003380| 04 0d 10 36 14 20 e7 20 | 68 65 6c 70 5f 70 61 67 |...6. . |help_pag|
|00003390| 65 3d 31 20 8c 0d 10 40 | 2b 20 20 ec 20 78 78 2c |e=1 ...@|+ . xx,|
|000033a0| 79 79 3a f1 22 53 75 6d | 6d 61 72 79 20 6f 66 20 |yy:."Sum|mary of |
|000033b0| 43 6f 6d 6d 61 6e 64 73 | 22 3a 79 79 2d 3d 36 34 |Commands|":yy-=64|
|000033c0| 0d 10 4a 0c 20 20 f7 20 | 8d 44 54 50 0d 10 54 3e |..J. . |.DTP..T>|
|000033d0| 20 20 dc 20 42 41 43 4b | 2c 43 4c 45 41 4e 2c 45 | . BACK|,CLEAN,E|
|000033e0| 4e 44 2c 46 49 4c 4c 2c | 46 4c 49 50 58 2c 46 4c |ND,FILL,|FLIPX,FL|
|000033f0| 49 50 59 2c 46 4f 52 57 | 41 52 44 2c 48 49 44 45 |IPY,FORW|ARD,HIDE|
|00003400| 2c 48 4f 4d 45 2c 4c 45 | 46 54 0d 10 5e 2e 20 20 |,HOME,LE|FT..^. |
|00003410| dc 20 4c 4f 41 44 2c 4d | 41 4b 45 2c 50 45 4e 44 |. LOAD,M|AKE,PEND|
|00003420| 4f 57 4e 2c 50 45 4e 55 | 50 2c 52 45 50 45 41 54 |OWN,PENU|P,REPEAT|
|00003430| 2c 52 49 47 48 54 2c 2a | 0d 10 68 08 20 20 dc 2a |,RIGHT,*|..h. .*|
|00003440| 0d 10 72 07 20 20 f5 0d | 10 7c 2b 20 20 20 f3 20 |..r. ..|.|+ . |
|00003450| 48 45 24 3a e7 20 48 45 | 24 3c 3e 22 2a 22 20 ec |HE$:. HE|$<>"*" .|
|00003460| 20 78 78 2c 79 79 3a f1 | 48 45 24 3a 79 79 2d 3d | xx,yy:.|HE$:yy-=|
|00003470| 33 36 0d 10 86 0f 20 20 | fd 20 48 45 24 3d 22 2a |36.... |. HE$="*|
|00003480| 22 0d 10 90 0c 20 20 f7 | 20 8d 74 5a 50 0d 10 9a |".... .| .tZP...|
|00003490| 3e 20 20 dc 20 53 45 54 | 43 4f 4c 4f 55 52 2c 53 |> . SET|COLOUR,S|
|000034a0| 45 54 48 45 41 44 49 4e | 47 2c 53 45 54 4e 49 42 |ETHEADIN|G,SETNIB|
|000034b0| 2c 53 45 54 50 49 54 43 | 48 2c 53 45 54 53 49 5a |,SETPITC|H,SETSIZ|
|000034c0| 45 2c 53 45 54 58 2c 53 | 45 54 59 0d 10 a4 36 20 |E,SETX,S|ETY...6 |
|000034d0| 20 dc 20 53 48 4f 57 2c | 53 4f 55 4e 44 2c 53 50 | . SHOW,|SOUND,SP|
|000034e0| 52 49 54 45 2c 53 59 4d | 4f 4e 2c 53 59 4d 4f 46 |RITE,SYM|ON,SYMOF|
|000034f0| 46 2c 54 4f 2c 57 41 49 | 54 2c 57 52 49 54 45 2c |F,TO,WAI|T,WRITE,|
|00003500| 2a 0d 10 ae 1a 20 20 78 | 78 3d 78 30 25 2b 32 30 |*.... x|x=x0%+20|
|00003510| 34 3a 79 79 3d 79 30 25 | 2d 39 36 0d 10 b8 07 20 |4:yy=y0%|-96.... |
|00003520| 20 f5 0d 10 c2 2b 20 20 | 20 f3 20 48 45 24 3a e7 | ....+ | . HE$:.|
|00003530| 20 48 45 24 3c 3e 22 2a | 22 20 ec 20 78 78 2c 79 | HE$<>"*|" . xx,y|
|00003540| 79 3a f1 48 45 24 3a 79 | 79 2d 3d 33 36 0d 10 cc |y:.HE$:y|y-=36...|
|00003550| 0f 20 20 fd 20 48 45 24 | 3d 22 2a 22 0d 10 d6 04 |. . HE$|="*"....|
|00003560| 0d 10 e0 0c 20 20 f7 20 | 8d 64 6a 50 0d 10 ea 09 |.... . |.djP....|
|00003570| 20 20 dc 20 2a 0d 10 f4 | 1a 20 20 78 78 3d 78 30 | . *...|. xx=x0|
|00003580| 25 2b 33 39 34 3a 79 79 | 3d 79 30 25 2d 39 36 0d |%+394:yy|=y0%-96.|
|00003590| 10 fe 07 20 20 f5 0d 11 | 08 2b 20 20 20 f3 20 48 |... ...|.+ . H|
|000035a0| 45 24 3a e7 20 48 45 24 | 3c 3e 22 2a 22 20 ec 20 |E$:. HE$|<>"*" . |
|000035b0| 78 78 2c 79 79 3a f1 48 | 45 24 3a 79 79 2d 3d 33 |xx,yy:.H|E$:yy-=3|
|000035c0| 36 0d 11 12 0f 20 20 fd | 20 48 45 24 3d 22 2a 22 |6.... .| HE$="*"|
|000035d0| 0d 11 1c 06 20 cd 0d 11 | 26 04 0d 11 30 15 20 e7 |.... ...|&...0. .|
|000035e0| 20 68 65 6c 70 5f 70 61 | 67 65 3c 3e 31 20 8c 0d | help_pa|ge<>1 ..|
|000035f0| 11 3a 18 20 20 f4 20 72 | 65 73 74 20 6f 66 20 70 |.:. . r|est of p|
|00003600| 61 67 65 73 2e 2e 2e 0d | 11 44 13 20 20 73 63 72 |ages....|.D. scr|
|00003610| 70 25 3d 73 63 72 69 70 | 74 25 0d 11 4e 07 20 20 |p%=scrip|t%..N. |
|00003620| f5 0d 11 58 35 20 20 20 | e7 20 24 73 63 72 70 25 |...X5 |. $scrp%|
|00003630| 3c 3e c3 28 68 65 6c 70 | 5f 70 61 67 65 29 20 73 |<>.(help|_page) s|
|00003640| 63 72 70 25 3d 73 63 72 | 70 25 2b 28 a9 24 73 63 |crp%=scr|p%+(.$sc|
|00003650| 72 70 25 29 2b 31 0d 11 | 62 34 20 20 fd 20 24 73 |rp%)+1..|b4 . $s|
|00003660| 63 72 70 25 3d c3 28 68 | 65 6c 70 5f 70 61 67 65 |crp%=.(h|elp_page|
|00003670| 29 20 84 20 73 63 72 70 | 25 3d 73 63 72 69 70 74 |) . scrp|%=script|
|00003680| 25 2b 73 63 72 70 5f 6c | 65 6e 0d 11 6c 04 0d 11 |%+scrp_l|en..l...|
|00003690| 76 1d 20 20 73 63 72 70 | 25 3d 73 63 72 70 25 2b |v. scrp|%=scrp%+|
|000036a0| 28 a9 24 73 63 72 70 25 | 29 2b 31 0d 11 80 07 20 |(.$scrp%|)+1.... |
|000036b0| 20 f5 0d 11 8a 2e 20 20 | 20 ec 20 78 78 2c 79 79 | ..... | . xx,yy|
|000036c0| 3a f1 24 73 63 72 70 25 | 3a 73 63 72 70 25 3d 73 |:.$scrp%|:scrp%=s|
|000036d0| 63 72 70 25 2b 28 a9 24 | 73 63 72 70 25 29 2b 31 |crp%+(.$|scrp%)+1|
|000036e0| 0d 11 94 36 20 20 20 e7 | 20 24 73 63 72 70 25 3c |...6 .| $scrp%<|
|000036f0| 3e 22 45 4f 46 22 3a e7 | 20 24 73 63 72 70 25 3c |>"EOF":.| $scrp%<|
|00003700| 3e c3 28 68 65 6c 70 5f | 70 61 67 65 2b 31 29 20 |>.(help_|page+1) |
|00003710| 79 79 2d 3d 33 32 0d 11 | 9e 2c 20 20 fd 20 24 73 |yy-=32..|., . $s|
|00003720| 63 72 70 25 3d 22 45 4f | 46 22 20 84 20 24 73 63 |crp%="EO|F" . $sc|
|00003730| 72 70 25 3d c3 28 68 65 | 6c 70 5f 70 61 67 65 2b |rp%=.(he|lp_page+|
|00003740| 31 29 0d 11 a8 06 20 cd | 0d 11 b2 04 0d 11 bc 10 |1).... .|........|
|00003750| 20 c9 20 77 68 61 6e 64 | 6c 65 39 25 0d 11 c6 23 | . whand|le9%...#|
|00003760| 20 f2 74 65 78 74 62 6f | 78 28 78 30 25 2b 32 30 | .textbo|x(x0%+20|
|00003770| 2c 79 30 25 2b 38 2c 32 | 36 38 2c 32 38 38 29 0d |,y0%+8,2|68,288).|
|00003780| 11 d0 2d 20 ef 32 34 2c | 78 30 25 2b 32 34 3b 79 |..- .24,|x0%+24;y|
|00003790| 30 25 2b 31 32 3b 78 30 | 25 2b 32 34 2b 32 38 30 |0%+12;x0|%+24+280|
|000037a0| 3b 79 30 25 2b 31 32 2b | 32 36 30 3b 0d 11 da 4c |;y0%+12+|260;...L|
|000037b0| 20 c8 99 22 4f 53 5f 53 | 70 72 69 74 65 4f 70 22 | .."OS_S|priteOp"|
|000037c0| 2c 32 39 36 2c 73 70 72 | 69 74 65 70 6f 6f 6c 2c |,296,spr|itepool,|
|000037d0| 73 70 72 69 74 65 5f 6e | 61 6d 65 24 20 b8 20 52 |sprite_n|ame$ . R|
|000037e0| 30 2c 52 31 2c 52 32 2c | 73 78 25 2c 73 79 25 2c |0,R1,R2,|sx%,sy%,|
|000037f0| 52 35 2c 73 6d 6f 64 65 | 0d 11 e4 2d 20 c8 99 22 |R5,smode|...- .."|
|00003800| 4f 53 5f 52 65 61 64 4d | 6f 64 65 56 61 72 69 61 |OS_ReadM|odeVaria|
|00003810| 62 6c 65 22 2c 73 6d 6f | 64 65 2c 34 20 b8 20 2c |ble",smo|de,4 . ,|
|00003820| 2c 78 6d 61 67 0d 11 ee | 2d 20 c8 99 22 4f 53 5f |,xmag...|- .."OS_|
|00003830| 52 65 61 64 4d 6f 64 65 | 56 61 72 69 61 62 6c 65 |ReadMode|Variable|
|00003840| 22 2c 73 6d 6f 64 65 2c | 35 20 b8 20 2c 2c 79 6d |",smode,|5 . ,,ym|
|00003850| 61 67 0d 11 f8 24 20 73 | 78 25 3d 28 73 78 25 3c |ag...$ s|x%=(sx%<|
|00003860| 3c 78 6d 61 67 29 3a 73 | 79 25 3d 28 73 79 25 3c |<xmag):s|y%=(sy%<|
|00003870| 3c 79 6d 61 67 29 0d 12 | 02 46 20 f2 70 69 63 74 |<ymag)..|.F .pict|
|00003880| 75 72 65 28 73 78 25 2a | 73 70 72 69 74 65 5f 73 |ure(sx%*|sprite_s|
|00003890| 69 7a 65 2c 73 79 25 2a | 73 70 72 69 74 65 5f 73 |ize,sy%*|sprite_s|
|000038a0| 69 7a 65 2c 73 70 72 69 | 74 65 70 6f 6f 6c 2c 73 |ize,spri|tepool,s|
|000038b0| 70 72 69 74 65 5f 6e 61 | 6d 65 24 29 0d 12 0c 45 |prite_na|me$)...E|
|000038c0| 20 c8 99 22 4f 53 5f 53 | 70 72 69 74 65 4f 70 22 | .."OS_S|priteOp"|
|000038d0| 2c 35 36 34 2c 73 70 72 | 69 74 65 70 6f 6f 6c 2c |,564,spr|itepool,|
|000038e0| 61 64 64 25 2c 78 30 25 | 2b 32 34 2c 79 30 25 2b |add%,x0%|+24,y0%+|
|000038f0| 31 32 2c 38 2c 6d 61 67 | 25 2c 74 72 61 6e 73 32 |12,8,mag|%,trans2|
|00003900| 25 0d 12 16 08 20 ef 32 | 36 0d 12 20 04 0d 12 2a |%.... .2|6.. ...*|
|00003910| 1d 20 c9 20 77 68 61 6e | 64 6c 65 31 30 25 2c 77 |. . whan|dle10%,w|
|00003920| 68 61 6e 64 6c 65 31 30 | 61 25 0d 12 34 2f 20 c8 |handle10|a%..4/ .|
|00003930| 99 22 4f 53 5f 52 65 61 | 64 4d 6f 64 65 56 61 72 |."OS_Rea|dModeVar|
|00003940| 69 61 62 6c 65 22 2c 2d | 31 2c 33 20 b8 20 2c 2c |iable",-|1,3 . ,,|
|00003950| 63 6f 6c 5f 72 61 6e 67 | 65 0d 12 3e 22 20 e7 20 |col_rang|e..>" . |
|00003960| 63 6f 6c 5f 72 61 6e 67 | 65 3d 36 33 20 f2 63 6f |col_rang|e=63 .co|
|00003970| 6c 5f 62 6f 78 65 73 28 | 34 38 29 0d 12 48 22 20 |l_boxes(|48)..H" |
|00003980| e7 20 63 6f 6c 5f 72 61 | 6e 67 65 3d 31 35 20 f2 |. col_ra|nge=15 .|
|00003990| 63 6f 6c 5f 62 6f 78 65 | 73 28 39 36 29 0d 12 52 |col_boxe|s(96)..R|
|000039a0| 22 20 e7 20 63 6f 6c 5f | 72 61 6e 67 65 3d 33 20 |" . col_|range=3 |
|000039b0| f2 63 6f 6c 5f 62 6f 78 | 65 73 28 31 39 32 29 0d |.col_box|es(192).|
|000039c0| 12 5c 04 0d 12 70 11 20 | c9 20 77 68 61 6e 64 6c |.\...p. |. whandl|
|000039d0| 65 31 33 25 0d 12 7a 3f | 20 f2 66 72 61 6d 65 28 |e13%..z?| .frame(|
|000039e0| 78 30 25 2b 32 34 2c 79 | 30 25 2d 33 36 30 2c 33 |x0%+24,y|0%-360,3|
|000039f0| 30 34 2c 35 32 36 2c 22 | 45 72 72 6f 72 20 66 72 |04,526,"|Error fr|
|00003a00| 6f 6d 20 44 65 73 6b 74 | 6f 70 20 54 75 72 74 6c |om Deskt|op Turtl|
|00003a10| 65 22 29 0d 12 84 04 0d | 12 8e 06 20 cb 0d 12 98 |e").....|... ....|
|00003a20| 2a 20 c8 99 22 57 69 6d | 70 5f 47 65 74 52 65 63 |* .."Wim|p_GetRec|
|00003a30| 74 61 6e 67 6c 65 22 2c | 2c 62 6c 6f 63 6b 25 20 |tangle",|,block% |
|00003a40| b8 20 6d 6f 72 65 25 0d | 12 a2 06 20 ce 0d 12 ac |. more%.|... ....|
|00003a50| 06 20 e1 0d 12 b6 10 20 | f4 2d 2d 2d 2d 2d 2d 2d |. ..... |.-------|
|00003a60| 2d 2d 2d 0d 12 c0 50 20 | dd f2 69 73 65 74 67 65 |---...P |..isetge|
|00003a70| 6e 28 77 68 25 2c 78 25 | 2c 61 24 29 3a 62 6c 6f |n(wh%,x%|,a$):blo|
|00003a80| 63 6b 25 21 30 3d 77 68 | 25 3a 62 6c 6f 63 6b 25 |ck%!0=wh|%:block%|
|00003a90| 21 34 3d 78 25 3a c8 99 | 22 57 69 6d 70 5f 47 65 |!4=x%:..|"Wimp_Ge|
|00003aa0| 74 49 63 6f 6e 53 74 61 | 74 65 22 2c 2c 62 6c 6f |tIconSta|te",,blo|
|00003ab0| 63 6b 25 0d 12 d4 4b 20 | 24 28 62 6c 6f 63 6b 25 |ck%...K |$(block%|
|00003ac0| 21 32 38 29 3d 61 24 3a | 62 6c 6f 63 6b 25 21 38 |!28)=a$:|block%!8|
|00003ad0| 3d 30 3a 62 6c 6f 63 6b | 25 21 31 32 3d 30 3a c8 |=0:block|%!12=0:.|
|00003ae0| 99 22 57 69 6d 70 5f 53 | 65 74 49 63 6f 6e 53 74 |."Wimp_S|etIconSt|
|00003af0| 61 74 65 22 2c 2c 62 6c | 6f 63 6b 25 3a e1 0d 12 |ate",,bl|ock%:...|
|00003b00| e8 10 20 f4 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 12 |.. .----|------..|
|00003b10| f2 5e 20 dd f2 69 72 65 | 61 64 67 65 6e 28 77 68 |.^ ..ire|adgen(wh|
|00003b20| 25 2c 78 25 29 3a 62 6c | 6f 63 6b 25 21 30 3d 77 |%,x%):bl|ock%!0=w|
|00003b30| 68 25 3a 62 6c 6f 63 6b | 25 21 34 3d 78 25 3a c8 |h%:block|%!4=x%:.|
|00003b40| 99 22 57 69 6d 70 5f 47 | 65 74 49 63 6f 6e 53 74 |."Wimp_G|etIconSt|
|00003b50| 61 74 65 22 2c 2c 62 6c | 6f 63 6b 25 3a 61 24 3d |ate",,bl|ock%:a$=|
|00003b60| 24 62 6c 6f 63 6b 25 21 | 32 38 3a e1 0d 13 10 10 |$block%!|28:.....|
|00003b70| 20 f4 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 13 1a 11 | .------|----....|
|00003b80| 20 dd f2 70 72 69 6e 74 | 61 62 6f 72 74 0d 13 24 | ..print|abort..$|
|00003b90| 4c 20 74 65 78 74 24 3d | 22 50 72 69 6e 74 69 6e |L text$=|"Printin|
|00003ba0| 67 20 41 62 6f 72 74 65 | 64 20 28 22 2b f6 24 2b |g Aborte|d ("+.$+|
|00003bb0| 22 29 22 3a f2 61 6c 65 | 72 74 28 74 65 78 74 24 |")":.ale|rt(text$|
|00003bc0| 29 3a 63 6f 70 69 65 73 | 25 3d 2d 31 3a f2 6d 69 |):copies|%=-1:.mi|
|00003bd0| 6e 69 5f 70 6f 6c 6c 3a | e1 0d 13 38 0f 20 f4 2d |ni_poll:|...8. .-|
|00003be0| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 13 42 0f 20 dd f2 70 |--------|..B. ..p|
|00003bf0| 72 69 6e 74 5f 69 74 0d | 13 4c 33 20 f2 70 64 72 |rint_it.|.L3 .pdr|
|00003c00| 69 76 65 72 3a e7 20 74 | 79 70 24 3d 22 6e 6f 74 |iver:. t|yp$="not|
|00003c10| 20 6c 6f 61 64 65 64 22 | 20 f2 6e 6f 64 72 69 76 | loaded"| .nodriv|
|00003c20| 65 72 5f 65 72 72 6f 72 | 3a e1 0d 13 56 44 20 e7 |er_error|:...VD .|
|00003c30| 20 70 6d 6f 72 65 25 3d | 30 20 f2 69 73 65 74 67 | pmore%=|0 .isetg|
|00003c40| 65 6e 28 77 68 61 6e 64 | 6c 65 31 34 25 2c 30 2c |en(whand|le14%,0,|
|00003c50| 22 52 65 61 64 79 20 74 | 6f 20 70 72 69 6e 74 20 |"Ready t|o print |
|00003c60| 64 72 61 77 69 6e 67 20 | 61 72 65 61 22 29 0d 13 |drawing |area")..|
|00003c70| 60 4b 20 e7 20 70 6d 6f | 72 65 25 3d 31 20 f2 69 |`K . pmo|re%=1 .i|
|00003c80| 73 65 74 67 65 6e 28 77 | 68 61 6e 64 6c 65 31 34 |setgen(w|handle14|
|00003c90| 25 2c 30 2c 22 52 65 61 | 64 79 20 74 6f 20 70 72 |%,0,"Rea|dy to pr|
|00003ca0| 69 6e 74 20 64 72 61 77 | 69 6e 67 20 61 72 65 61 |int draw|ing area|
|00003cb0| 20 26 20 6c 69 6e 65 22 | 29 0d 13 6a 4a 20 e7 20 | & line"|)..jJ . |
|00003cc0| 70 6d 6f 72 65 25 3d 32 | 20 f2 69 73 65 74 67 65 |pmore%=2| .isetge|
|00003cd0| 6e 28 77 68 61 6e 64 6c | 65 31 34 25 2c 30 2c 22 |n(whandl|e14%,0,"|
|00003ce0| 52 65 61 64 79 20 74 6f | 20 70 72 69 6e 74 20 73 |Ready to| print s|
|00003cf0| 65 6c 65 63 74 65 64 20 | 70 72 6f 63 65 64 75 72 |elected |procedur|
|00003d00| 65 22 29 0d 13 74 46 20 | e7 20 70 6d 6f 72 65 25 |e")..tF |. pmore%|
|00003d10| 3d 33 20 f2 69 73 65 74 | 67 65 6e 28 77 68 61 6e |=3 .iset|gen(whan|
|00003d20| 64 6c 65 31 34 25 2c 30 | 2c 22 52 65 61 64 79 20 |dle14%,0|,"Ready |
|00003d30| 74 6f 20 70 72 69 6e 74 | 20 61 6c 6c 20 70 72 6f |to print| all pro|
|00003d40| 63 65 64 75 72 65 73 22 | 29 0d 13 7e 1c 20 f2 6f |cedures"|)..~. .o|
|00003d50| 70 65 6e 77 69 6e 64 6f | 77 28 77 68 61 6e 64 6c |penwindo|w(whandl|
|00003d60| 65 31 34 25 29 0d 13 88 | 06 20 e1 0d 13 92 10 20 |e14%)...|. ..... |
|00003d70| f4 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 13 9c 10 20 |.-------|---.... |
|00003d80| dd f2 70 72 69 6e 74 63 | 74 72 6c 0d 13 a6 20 20 |..printc|trl... |
|00003d90| f2 6d 69 6e 69 5f 70 6f | 6c 6c 3a 70 72 69 6e 74 |.mini_po|ll:print|
|00003da0| 65 72 5f 73 74 61 74 75 | 73 3d 31 0d 13 b0 2c 20 |er_statu|s=1..., |
|00003db0| c8 99 22 4f 53 5f 52 65 | 61 64 4d 6f 64 65 56 61 |.."OS_Re|adModeVa|
|00003dc0| 72 69 61 62 6c 65 22 2c | 2d 31 2c 35 20 b8 20 2c |riable",|-1,5 . ,|
|00003dd0| 2c 79 73 74 69 6e 74 0d | 13 ba 2c 20 c8 99 22 4f |,ystint.|.., .."O|
|00003de0| 53 5f 52 65 61 64 4d 6f | 64 65 56 61 72 69 61 62 |S_ReadMo|deVariab|
|00003df0| 6c 65 22 2c 2d 31 2c 34 | 20 b8 20 2c 2c 78 73 74 |le",-1,4| . ,,xst|
|00003e00| 69 6e 74 0d 13 c4 08 20 | ea 20 85 0d 13 ce 10 20 |int.... |. ..... |
|00003e10| ee 20 85 20 ea 3a f7 20 | 85 3a e1 0d 13 d8 31 20 |. . .:. |.:....1 |
|00003e20| f2 69 72 65 61 64 67 65 | 6e 28 77 68 61 6e 64 6c |.ireadge|n(whandl|
|00003e30| 65 31 34 25 2c 37 29 3a | 63 6f 70 69 65 73 25 3d |e14%,7):|copies%=|
|00003e40| bb 28 61 24 29 3a 65 72 | 72 25 3d a3 0d 13 e2 08 |.(a$):er|r%=.....|
|00003e50| 20 f7 20 85 0d 13 ec 04 | 0d 13 f6 06 20 f5 0d 14 | . .....|.... ...|
|00003e60| 00 12 20 20 e7 20 70 6d | 6f 72 65 25 3c 33 20 8c |.. . pm|ore%<3 .|
|00003e70| 0d 14 0a 2d 20 20 20 f2 | 70 72 69 6e 74 3a e7 20 |...- .|print:. |
|00003e80| 65 72 72 25 3d b9 20 f2 | 70 72 69 6e 74 61 62 6f |err%=. .|printabo|
|00003e90| 72 74 3a 63 6f 70 69 65 | 73 25 2d 3d 31 0d 14 14 |rt:copie|s%-=1...|
|00003ea0| 07 20 20 cc 0d 14 1e 15 | 20 20 20 63 75 72 72 5f |. .....| curr_|
|00003eb0| 6e 75 6d 62 65 72 25 3d | 31 0d 14 28 08 20 20 20 |number%=|1..(. |
|00003ec0| f5 0d 14 32 23 20 20 20 | 20 f2 70 72 69 6e 74 3a |...2# | .print:|
|00003ed0| e7 20 65 72 72 25 3d b9 | 20 f2 70 72 69 6e 74 61 |. err%=.| .printa|
|00003ee0| 62 6f 72 74 0d 14 3c 17 | 20 20 20 20 63 75 72 72 |bort..<.| curr|
|00003ef0| 5f 6e 75 6d 62 65 72 25 | 2b 3d 34 0d 14 46 3d 20 |_number%|+=4..F= |
|00003f00| 20 20 20 e7 20 63 75 72 | 72 5f 6e 75 6d 62 65 72 | . cur|r_number|
|00003f10| 25 3c 3d 50 72 6f 63 6e | 61 6d 65 73 25 20 80 20 |%<=Procn|ames% . |
|00003f20| 70 72 69 6e 74 5f 70 61 | 75 73 65 3d b9 20 f2 70 |print_pa|use=. .p|
|00003f30| 72 6e 5f 70 61 75 73 65 | 0d 14 50 29 20 20 20 fd |rn_pause|..P) .|
|00003f40| 20 65 72 72 25 3d b9 20 | 84 20 63 75 72 72 5f 6e | err%=. |. curr_n|
|00003f50| 75 6d 62 65 72 25 3e 50 | 72 6f 63 6e 61 6d 65 73 |umber%>P|rocnames|
|00003f60| 25 0d 14 5a 11 20 20 20 | 63 6f 70 69 65 73 25 2d |%..Z. |copies%-|
|00003f70| 3d 31 0d 14 64 07 20 20 | cd 0d 14 6e 2c 20 20 e7 |=1..d. |...n, .|
|00003f80| 20 63 6f 70 69 65 73 25 | 3e 30 20 80 20 70 72 69 | copies%|>0 . pri|
|00003f90| 6e 74 5f 70 61 75 73 65 | 3d b9 20 f2 70 72 6e 5f |nt_pause|=. .prn_|
|00003fa0| 70 61 75 73 65 0d 14 78 | 13 20 fd 20 63 6f 70 69 |pause..x|. . copi|
|00003fb0| 65 73 25 3c 3d 30 3a e1 | 0d 14 82 10 20 f4 2d 2d |es%<=0:.|.... .--|
|00003fc0| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 14 8c 0c 20 dd f2 70 |--------|.... ..p|
|00003fd0| 72 69 6e 74 0d 14 96 41 | 20 c8 99 22 48 6f 75 72 |rint...A| .."Hour|
|00003fe0| 67 6c 61 73 73 5f 4f 6e | 22 3a c8 99 22 50 44 72 |glass_On|":.."PDr|
|00003ff0| 69 76 65 72 5f 50 61 67 | 65 53 69 7a 65 22 20 b8 |iver_Pag|eSize" .|
|00004000| 20 52 30 2c 52 31 2c 52 | 32 2c 52 33 2c 52 34 2c | R0,R1,R|2,R3,R4,|
|00004010| 52 35 2c 52 36 0d 14 a0 | 18 20 e7 20 52 34 3c 37 |R5,R6...|. . R4<7|
|00004020| 32 30 30 30 20 52 34 3d | 37 32 30 30 30 0d 14 aa |2000 R4=|72000...|
|00004030| 24 20 e7 20 52 33 3c 28 | 37 32 30 30 30 2a 30 2e |$ . R3<(|72000*0.|
|00004040| 35 29 20 52 33 3d 28 37 | 32 30 30 30 2a 30 2e 35 |5) R3=(7|2000*0.5|
|00004050| 29 0d 14 b4 30 20 50 78 | 73 69 7a 65 3d a8 28 28 |)...0 Px|size=.((|
|00004060| 52 35 2d 52 33 29 2f 34 | 30 30 29 3a 50 79 73 69 |R5-R3)/4|00):Pysi|
|00004070| 7a 65 3d a8 28 28 52 36 | 2d 52 34 29 2f 34 30 30 |ze=.((R6|-R4)/400|
|00004080| 29 0d 14 be 1d 20 70 66 | 25 3d ae 28 22 70 72 69 |).... pf|%=.("pri|
|00004090| 6e 74 65 72 3a 22 29 3a | 65 72 72 25 3d a3 0d 14 |nter:"):|err%=...|
|000040a0| c8 2c 20 e7 20 70 66 25 | 3d 30 20 8c 20 85 20 32 |., . pf%|=0 . . 2|
|000040b0| 35 35 2c 22 50 72 69 6e | 74 65 72 20 6e 6f 74 20 |55,"Prin|ter not |
|000040c0| 61 76 61 69 6c 61 62 6c | 65 22 0d 14 d2 30 20 c8 |availabl|e"...0 .|
|000040d0| 99 20 22 50 44 72 69 76 | 65 72 5f 53 65 6c 65 63 |. "PDriv|er_Selec|
|000040e0| 74 4a 6f 62 22 2c 70 66 | 25 2c 22 44 5f 54 75 72 |tJob",pf|%,"D_Tur|
|000040f0| 74 6c 65 20 50 52 49 4e | 54 22 0d 14 dc 37 20 72 |tle PRIN|T"...7 r|
|00004100| 65 63 74 25 21 30 3d 30 | 3a 72 65 63 74 25 21 34 |ect%!0=0|:rect%!4|
|00004110| 3d 30 3a 72 65 63 74 25 | 21 38 3d 50 78 73 69 7a |=0:rect%|!8=Pxsiz|
|00004120| 65 3a 72 65 63 74 25 21 | 31 32 3d 50 79 73 69 7a |e:rect%!|12=Pysiz|
|00004130| 65 0d 14 e6 41 20 74 72 | 61 6e 73 25 21 30 3d 31 |e...A tr|ans%!0=1|
|00004140| 3c 3c 31 36 3a 74 72 61 | 6e 73 25 21 34 3d 30 3c |<<16:tra|ns%!4=0<|
|00004150| 3c 31 36 3a 74 72 61 6e | 73 25 21 38 3d 30 3c 3c |<16:tran|s%!8=0<<|
|00004160| 31 36 3a 74 72 61 6e 73 | 25 21 31 32 3d 31 3c 3c |16:trans|%!12=1<<|
|00004170| 31 36 0d 14 f0 1e 20 70 | 6c 6f 74 61 74 25 21 30 |16.... p|lotat%!0|
|00004180| 3d 52 33 3a 70 6c 6f 74 | 61 74 25 21 34 3d 52 34 |=R3:plot|at%!4=R4|
|00004190| 0d 14 fa 04 0d 15 04 40 | 20 c8 99 20 22 50 44 72 |.......@| .. "PDr|
|000041a0| 69 76 65 72 5f 47 69 76 | 65 52 65 63 74 61 6e 67 |iver_Giv|eRectang|
|000041b0| 6c 65 22 2c 30 2c 72 65 | 63 74 25 2c 74 72 61 6e |le",0,re|ct%,tran|
|000041c0| 73 25 2c 70 6c 6f 74 61 | 74 25 2c 26 46 46 46 46 |s%,plota|t%,&FFFF|
|000041d0| 46 46 30 30 0d 15 0e 31 | 20 c8 99 20 22 50 44 72 |FF00...1| .. "PDr|
|000041e0| 69 76 65 72 5f 44 72 61 | 77 50 61 67 65 22 2c 31 |iver_Dra|wPage",1|
|000041f0| 2c 72 65 63 74 69 6e 25 | 2c 30 2c 30 20 b8 20 6d |,rectin%|,0,0 . m|
|00004200| 6d 6f 72 65 25 0d 15 18 | 26 20 c8 99 22 43 6f 6c |more%...|& .."Col|
|00004210| 6f 75 72 54 72 61 6e 73 | 5f 53 65 74 47 43 4f 4c |ourTrans|_SetGCOL|
|00004220| 22 2c 26 30 30 30 30 30 | 30 30 30 0d 15 22 32 20 |",&00000|000.."2 |
|00004230| c8 99 22 43 6f 6c 6f 75 | 72 54 72 61 6e 73 5f 53 |.."Colou|rTrans_S|
|00004240| 65 74 46 6f 6e 74 43 6f | 6c 6f 75 72 73 22 2c 2c |etFontCo|lours",,|
|00004250| 26 46 46 46 46 46 46 30 | 30 2c 30 2c 36 0d 15 2c |&FFFFFF0|0,0,6..,|
|00004260| 08 20 ea 20 85 0d 15 36 | 48 20 ee 20 85 20 ea 3a |. . ...6|H . . .:|
|00004270| f7 20 85 3a c8 99 22 50 | 44 72 69 76 65 72 5f 41 |. .:.."P|Driver_A|
|00004280| 62 6f 72 74 4a 6f 62 22 | 2c 70 66 25 3a d9 23 70 |bortJob"|,pf%:.#p|
|00004290| 66 25 3a c8 99 22 48 6f | 75 72 67 6c 61 73 73 5f |f%:.."Ho|urglass_|
|000042a0| 4f 66 66 22 3a 65 72 72 | 25 3d b9 3a e1 0d 15 40 |Off":err|%=.:...@|
|000042b0| 0e 20 c8 95 20 6d 6d 6f | 72 65 25 0d 15 4a 18 20 |. .. mmo|re%..J. |
|000042c0| 20 e7 20 70 6d 6f 72 65 | 25 3d 31 20 f2 73 74 79 | . pmore|%=1 .sty|
|000042d0| 6c 65 31 0d 15 54 18 20 | 20 e7 20 70 6d 6f 72 65 |le1..T. | . pmore|
|000042e0| 25 3d 32 20 f2 73 74 79 | 6c 65 32 0d 15 5e 18 20 |%=2 .sty|le2..^. |
|000042f0| 20 e7 20 70 6d 6f 72 65 | 25 3d 33 20 f2 73 74 79 | . pmore|%=3 .sty|
|00004300| 6c 65 33 0d 15 68 38 20 | 20 c8 99 22 50 44 72 69 |le3..h8 | .."PDri|
|00004310| 76 65 72 5f 47 65 74 52 | 65 63 74 61 6e 67 6c 65 |ver_GetR|ectangle|
|00004320| 22 2c 2c 72 65 63 74 69 | 6e 25 20 b8 20 6d 6d 6f |",,recti|n% . mmo|
|00004330| 72 65 25 2c 2c 72 65 63 | 69 64 25 0d 15 72 06 20 |re%,,rec|id%..r. |
|00004340| ce 0d 15 7c 1b 20 c8 99 | 22 50 44 72 69 76 65 72 |...|. ..|"PDriver|
|00004350| 5f 45 6e 64 4a 6f 62 22 | 2c 70 66 25 0d 15 86 16 |_EndJob"|,pf%....|
|00004360| 20 c8 99 22 48 6f 75 72 | 67 6c 61 73 73 5f 4f 66 | .."Hour|glass_Of|
|00004370| 66 22 0d 15 90 08 20 f7 | 20 85 0d 15 9a 0a 20 d9 |f".... .| ..... .|
|00004380| 23 70 66 25 0d 15 a4 1a | 20 e7 20 70 6d 6f 72 65 |#pf%....| . pmore|
|00004390| 25 3d 32 20 63 6f 70 69 | 65 73 25 2d 3d 33 0d 15 |%=2 copi|es%-=3..|
|000043a0| ae 06 20 e1 0d 15 b8 10 | 20 f4 2d 2d 2d 2d 2d 2d |.. .....| .------|
|000043b0| 2d 2d 2d 2d 0d 15 c2 0d | 20 dd f2 73 74 79 6c 65 |----....| ..style|
|000043c0| 31 0d 15 cc 28 20 f2 70 | 69 63 74 75 72 65 28 31 |1...( .p|icture(1|
|000043d0| 32 33 35 2c 38 38 34 2c | 67 72 61 62 5f 6d 65 6d |235,884,|grab_mem|
|000043e0| 73 74 61 72 74 2c 22 22 | 29 0d 15 d6 4a 20 c8 99 |start,""|)...J ..|
|000043f0| 22 4f 53 5f 53 70 72 69 | 74 65 4f 70 22 2c 35 36 |"OS_Spri|teOp",56|
|00004400| 34 2c 67 72 61 62 5f 6d | 65 6d 73 74 61 72 74 2c |4,grab_m|emstart,|
|00004410| 61 64 64 25 2c 30 2c 50 | 79 73 69 7a 65 2d 73 79 |add%,0,P|ysize-sy|
|00004420| 25 2d 31 36 2c 30 2c 6d | 61 67 25 2c 74 72 61 6e |%-16,0,m|ag%,tran|
|00004430| 73 32 25 0d 15 e0 06 20 | e1 0d 15 ea 10 20 f4 2d |s2%.... |..... .-|
|00004440| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 15 f4 0d 20 dd f2 |--------|-.... ..|
|00004450| 64 65 66 69 6e 65 0d 15 | fe 43 20 de 20 61 72 65 |define..|.C . are|
|00004460| 61 25 20 32 35 36 2c 70 | 30 25 20 38 2c 70 31 25 |a% 256,p|0% 8,p1%|
|00004470| 20 31 36 2c 70 32 25 20 | 36 34 2c 70 33 25 20 36 | 16,p2% |64,p3% 6|
|00004480| 34 2c 70 61 6c 62 75 66 | 66 25 20 36 34 2c 74 72 |4,palbuf|f% 64,tr|
|00004490| 61 6e 73 32 25 20 32 35 | 36 0d 16 08 1f 20 de 20 |ans2% 25|6.... . |
|000044a0| 61 64 64 25 20 32 35 36 | 2c 6d 61 67 25 20 32 30 |add% 256|,mag% 20|
|000044b0| 2c 70 61 6c 25 20 32 30 | 0d 16 12 45 20 de 20 74 |,pal% 20|...E . t|
|000044c0| 72 61 6e 73 25 20 31 36 | 2c 72 65 63 74 25 20 31 |rans% 16|,rect% 1|
|000044d0| 36 2c 70 6c 6f 74 61 74 | 25 20 38 2c 72 65 63 74 |6,plotat|% 8,rect|
|000044e0| 69 6e 25 20 31 36 2c 62 | 6c 6f 63 6b 25 20 31 37 |in% 16,b|lock% 17|
|000044f0| 30 30 30 2c 6d 65 6e 75 | 25 26 31 30 30 0d 16 1c |000,menu|%&100...|
|00004500| 2e 20 de 20 62 6c 6f 63 | 6b 32 25 20 32 35 36 2c |. . bloc|k2% 256,|
|00004510| 62 6c 6f 63 6b 33 25 20 | 32 35 36 2c 69 63 6f 6e |block3% |256,icon|
|00004520| 73 70 61 63 65 20 31 38 | 30 30 30 0d 16 26 3e 20 |space 18|000..&> |
|00004530| de 20 6d 61 69 6e 6d 65 | 6e 75 25 20 36 30 30 2c |. mainme|nu% 600,|
|00004540| 70 72 6f 63 6d 65 6e 75 | 25 20 34 30 30 2c 70 72 |procmenu|% 400,pr|
|00004550| 6f 63 6d 65 6e 75 32 25 | 20 34 30 30 2c 76 61 72 |ocmenu2%| 400,var|
|00004560| 6d 65 6e 75 25 20 34 30 | 30 0d 16 30 32 20 de 20 |menu% 40|0..02 . |
|00004570| 6d 61 67 61 25 20 31 36 | 2c 6d 61 67 62 25 20 31 |maga% 16|,magb% 1|
|00004580| 36 2c 77 64 61 74 61 31 | 25 20 31 37 30 30 30 2c |6,wdata1|% 17000,|
|00004590| 73 70 72 6e 61 6d 65 25 | 20 31 33 0d 16 3a 2f 20 |sprname%| 13..:/ |
|000045a0| de 20 73 70 72 69 74 65 | 70 6f 6f 6c 20 32 30 30 |. sprite|pool 200|
|000045b0| 30 30 2c 64 73 6b 25 20 | 31 32 30 2c 73 6f 75 6e |00,dsk% |120,soun|
|000045c0| 64 6d 65 6e 75 25 20 35 | 30 30 0d 16 44 38 20 de |dmenu% 5|00..D8 .|
|000045d0| 20 52 65 70 65 61 74 70 | 61 64 24 28 35 30 29 2c | Repeatp|ad$(50),|
|000045e0| 52 65 70 65 61 74 28 35 | 30 29 2c 6e 69 6e 73 28 |Repeat(5|0),nins(|
|000045f0| 35 30 29 2c 50 72 6f 63 | 6e 61 6d 65 73 24 28 31 |50),Proc|names$(1|
|00004600| 30 29 0d 16 4e 33 20 de | 20 50 72 6f 31 24 28 31 |0)..N3 .| Pro1$(1|
|00004610| 35 2c 31 30 29 2c 56 69 | 72 5f 50 72 6f 31 24 28 |5,10),Vi|r_Pro1$(|
|00004620| 35 30 2c 31 30 29 2c 56 | 69 72 5f 69 6e 73 28 35 |50,10),V|ir_ins(5|
|00004630| 30 2c 31 30 29 0d 16 58 | 3e 20 de 20 56 62 24 28 |0,10)..X|> . Vb$(|
|00004640| 32 30 29 2c 56 62 28 32 | 30 29 2c 6f 66 66 73 65 |20),Vb(2|0),offse|
|00004650| 74 25 20 34 30 30 2c 62 | 75 66 66 65 72 25 20 35 |t% 400,b|uffer% 5|
|00004660| 30 30 30 30 2c 56 74 24 | 28 32 30 29 2c 56 74 28 |0000,Vt$|(20),Vt(|
|00004670| 32 30 29 0d 16 62 2b 20 | de 20 73 61 76 65 70 69 |20)..b+ |. savepi|
|00004680| 63 25 20 31 30 30 2c 73 | 61 76 65 64 61 74 61 25 |c% 100,s|avedata%|
|00004690| 20 31 30 30 2c 69 64 65 | 6e 74 25 20 31 31 0d 16 | 100,ide|nt% 11..|
|000046a0| 6c 46 20 de 20 73 70 72 | 73 24 28 37 37 29 2c 73 |lF . spr|s$(77),s|
|000046b0| 6f 75 6e 64 24 28 31 30 | 29 2c 64 69 72 73 65 61 |ound$(10|),dirsea|
|000046c0| 72 63 68 20 39 32 34 2c | 73 70 72 73 6d 65 6e 75 |rch 924,|sprsmenu|
|000046d0| 25 20 32 30 30 30 2c 69 | 6e 25 20 31 36 2c 6f 75 |% 2000,i|n% 16,ou|
|000046e0| 25 20 31 36 0d 16 76 31 | 20 69 6e 25 21 30 3d 31 |% 16..v1| in%!0=1|
|000046f0| 32 3a 69 6e 25 21 34 3d | 35 3a 69 6e 25 21 38 3d |2:in%!4=|5:in%!8=|
|00004700| 31 31 3a 69 6e 25 21 31 | 32 3d 34 3a 69 6e 25 21 |11:in%!1|2=4:in%!|
|00004710| 31 36 3d 2d 31 0d 16 80 | 4f 20 24 62 6c 6f 63 6b |16=-1...|O $block|
|00004720| 25 3d 22 54 41 53 4b 22 | 3a c8 99 22 57 69 6d 70 |%="TASK"|:.."Wimp|
|00004730| 5f 49 6e 69 74 69 61 6c | 69 73 65 22 2c 32 30 30 |_Initial|ise",200|
|00004740| 2c 21 62 6c 6f 63 6b 25 | 2c 22 44 5f 54 75 72 74 |,!block%|,"D_Turt|
|00004750| 6c 65 22 20 b8 20 76 65 | 72 73 69 6f 6e 25 2c 74 |le" . ve|rsion%,t|
|00004760| 61 73 6b 25 0d 16 8a 06 | 20 e1 0d 16 94 10 20 f4 |ask%....| ..... .|
|00004770| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 16 9e 0e 20 dd |--------|--.... .|
|00004780| f2 64 65 66 69 6e 65 32 | 0d 16 a8 3f 20 c8 99 22 |.define2|...? .."|
|00004790| 4f 53 5f 52 65 61 64 56 | 61 72 56 61 6c 22 2c 22 |OS_ReadV|arVal","|
|000047a0| 21 44 5f 54 75 72 74 6c | 65 24 44 69 72 22 2c 61 |!D_Turtl|e$Dir",a|
|000047b0| 72 65 61 25 2c 32 35 36 | 2c 30 2c 33 20 b8 20 2c |rea%,256|,0,3 . ,|
|000047c0| 2c 6c 65 6e 67 74 68 0d | 16 b2 21 20 61 72 65 61 |,length.|..! area|
|000047d0| 25 3f 6c 65 6e 67 74 68 | 3d 31 33 3a 70 61 74 68 |%?length|=13:path|
|000047e0| 24 3d 24 61 72 65 61 25 | 0d 16 bc 2c 20 59 24 3d |$=$area%|..., Y$=|
|000047f0| 70 61 74 68 24 2b 22 2e | 54 65 6d 70 6c 61 74 65 |path$+".|Template|
|00004800| 73 22 3a 59 35 24 3d 70 | 61 74 68 24 2b 22 2e 48 |s":Y5$=p|ath$+".H|
|00004810| 65 6c 70 22 0d 16 c6 2f | 20 73 6d 6f 64 65 25 3d |elp".../| smode%=|
|00004820| 2d 31 3a 77 64 31 65 6e | 64 25 3d 77 64 61 74 61 |-1:wd1en|d%=wdata|
|00004830| 31 25 2b 31 37 30 30 30 | 3a 42 25 3d 30 3a 50 41 |1%+17000|:B%=0:PA|
|00004840| 25 3d 30 0d 16 d0 54 20 | c8 99 22 4f 53 5f 53 70 |%=0...T |.."OS_Sp|
|00004850| 72 69 74 65 4f 70 22 2c | 32 36 35 2c 73 70 72 69 |riteOp",|265,spri|
|00004860| 74 65 70 6f 6f 6c 3a 21 | 73 70 72 69 74 65 70 6f |tepool:!|spritepo|
|00004870| 6f 6c 3d 32 30 30 30 30 | 3a 73 70 72 69 74 65 70 |ol=20000|:spritep|
|00004880| 6f 6f 6c 21 34 3d 30 3a | 73 70 72 69 74 65 70 6f |ool!4=0:|spritepo|
|00004890| 6f 6c 21 38 3d 31 36 0d | 16 da 50 20 c8 99 22 4f |ol!8=16.|..P .."O|
|000048a0| 53 5f 53 70 72 69 74 65 | 4f 70 22 2c 32 36 35 2c |S_Sprite|Op",265,|
|000048b0| 69 63 6f 6e 73 70 61 63 | 65 3a 21 69 63 6f 6e 73 |iconspac|e:!icons|
|000048c0| 70 61 63 65 3d 31 38 30 | 30 30 3a 69 63 6f 6e 73 |pace=180|00:icons|
|000048d0| 70 61 63 65 21 34 3d 30 | 3a 69 63 6f 6e 73 70 61 |pace!4=0|:iconspa|
|000048e0| 63 65 21 38 3d 31 36 0d | 16 e4 3e 20 6d 64 61 74 |ce!8=16.|..> mdat|
|000048f0| 61 62 6c 6f 63 6b 25 3d | 93 3a 6d 64 61 74 61 62 |ablock%=|.:mdatab|
|00004900| 6c 6f 63 6b 5f 65 6e 64 | 25 3d 93 3a 67 72 61 62 |lock_end|%=.:grab|
|00004910| 5f 6d 65 6d 73 74 61 72 | 74 3d 6d 64 61 74 61 62 |_memstar|t=mdatab|
|00004920| 6c 6f 63 6b 25 0d 16 ee | 0c 20 71 75 69 74 25 3d |lock%...|. quit%=|
|00004930| a3 0d 16 f8 1e 20 c8 99 | 22 57 69 6d 70 5f 4f 70 |..... ..|"Wimp_Op|
|00004940| 65 6e 54 65 6d 70 6c 61 | 74 65 22 2c 2c 59 24 0d |enTempla|te",,Y$.|
|00004950| 17 02 37 20 77 68 61 6e | 64 6c 65 31 25 3d a4 54 |..7 whan|dle1%=.T|
|00004960| 65 6d 70 28 22 44 69 73 | 70 6c 61 79 22 29 3a 77 |emp("Dis|play"):w|
|00004970| 68 61 6e 64 6c 65 32 25 | 3d a4 54 65 6d 70 28 22 |handle2%|=.Temp("|
|00004980| 49 6e 66 6f 22 29 0d 17 | 0c 37 20 77 68 61 6e 64 |Info")..|.7 whand|
|00004990| 6c 65 33 25 3d a4 54 65 | 6d 70 28 22 53 61 76 65 |le3%=.Te|mp("Save|
|000049a0| 22 29 3a 77 68 61 6e 64 | 6c 65 34 25 3d a4 54 65 |"):whand|le4%=.Te|
|000049b0| 6d 70 28 22 50 61 64 6c | 69 73 74 22 29 0d 17 16 |mp("Padl|ist")...|
|000049c0| 36 20 77 68 61 6e 64 6c | 65 35 25 3d a4 54 65 6d |6 whandl|e5%=.Tem|
|000049d0| 70 28 22 50 72 6f 63 22 | 29 3a 77 68 61 6e 64 6c |p("Proc"|):whandl|
|000049e0| 65 36 25 3d a4 54 65 6d | 70 28 22 53 54 41 54 55 |e6%=.Tem|p("STATU|
|000049f0| 53 22 29 0d 17 20 38 20 | 77 68 61 6e 64 6c 65 37 |S").. 8 |whandle7|
|00004a00| 25 3d a4 54 65 6d 70 28 | 22 48 65 6c 70 49 6e 66 |%=.Temp(|"HelpInf|
|00004a10| 6f 22 29 3a 77 68 61 6e | 64 6c 65 38 25 3d a4 54 |o"):whan|dle8%=.T|
|00004a20| 65 6d 70 28 22 64 72 61 | 67 22 29 0d 17 2a 3b 20 |emp("dra|g")..*; |
|00004a30| 77 68 61 6e 64 6c 65 39 | 25 3d a4 54 65 6d 70 28 |whandle9|%=.Temp(|
|00004a40| 22 53 70 72 53 74 61 74 | 22 29 3a 77 68 61 6e 64 |"SprStat|"):whand|
|00004a50| 6c 65 31 30 25 3d a4 54 | 65 6d 70 28 22 63 6f 6c |le10%=.T|emp("col|
|00004a60| 6f 75 72 73 22 29 0d 17 | 34 3a 20 77 68 61 6e 64 |ours")..|4: whand|
|00004a70| 6c 65 31 32 25 3d a4 54 | 65 6d 70 28 22 69 6e 70 |le12%=.T|emp("inp|
|00004a80| 75 74 22 29 3a 77 68 61 | 6e 64 6c 65 36 61 25 3d |ut"):wha|ndle6a%=|
|00004a90| a4 54 65 6d 70 28 22 53 | 54 41 54 55 53 32 22 29 |.Temp("S|TATUS2")|
|00004aa0| 0d 17 3e 3b 20 77 68 61 | 6e 64 6c 65 31 33 25 3d |..>; wha|ndle13%=|
|00004ab0| a4 54 65 6d 70 28 22 65 | 72 72 6f 72 62 6f 78 22 |.Temp("e|rrorbox"|
|00004ac0| 29 3a 77 68 61 6e 64 6c | 65 31 34 25 3d a4 54 65 |):whandl|e14%=.Te|
|00004ad0| 6d 70 28 22 70 72 69 6e | 74 22 29 0d 17 48 3c 20 |mp("prin|t")..H< |
|00004ae0| 70 61 75 73 65 5f 77 69 | 6e 25 3d a4 54 65 6d 70 |pause_wi|n%=.Temp|
|00004af0| 28 22 70 61 75 73 65 22 | 29 3a 77 68 61 6e 64 6c |("pause"|):whandl|
|00004b00| 65 31 30 61 25 3d a4 54 | 65 6d 70 28 22 63 6f 6c |e10a%=.T|emp("col|
|00004b10| 6f 75 72 73 32 22 29 0d | 17 49 16 20 72 65 67 25 |ours2").|.I. reg%|
|00004b20| 3d a4 54 65 6d 70 28 22 | 72 65 67 22 29 0d 17 52 |=.Temp("|reg")..R|
|00004b30| 1b 20 c8 99 22 57 69 6d | 70 5f 43 6c 6f 73 65 54 |. .."Wim|p_CloseT|
|00004b40| 65 6d 70 6c 61 74 65 22 | 0d 17 5c 23 20 73 70 72 |emplate"|..\# spr|
|00004b50| 69 74 65 73 5f 70 61 74 | 68 24 3d 70 61 74 68 24 |ites_pat|h$=path$|
|00004b60| 2b 22 2e 53 70 72 69 74 | 65 73 22 0d 17 66 3e 20 |+".Sprit|es"..f> |
|00004b70| c8 99 22 4f 53 5f 53 70 | 72 69 74 65 4f 70 22 2c |.."OS_Sp|riteOp",|
|00004b80| 32 36 36 2c 73 70 72 69 | 74 65 70 6f 6f 6c 2c 28 |266,spri|tepool,(|
|00004b90| 73 70 72 69 74 65 73 5f | 70 61 74 68 24 2b 22 2e |sprites_|path$+".|
|00004ba0| 44 65 66 61 75 6c 74 22 | 29 0d 17 70 33 20 c8 99 |Default"|)..p3 ..|
|00004bb0| 22 4f 53 5f 53 70 72 69 | 74 65 4f 70 22 2c 32 36 |"OS_Spri|teOp",26|
|00004bc0| 36 2c 69 63 6f 6e 73 70 | 61 63 65 2c 28 70 61 74 |6,iconsp|ace,(pat|
|00004bd0| 68 24 2b 22 2e 49 63 6f | 6e 73 22 29 0d 17 7a 28 |h$+".Ico|ns")..z(|
|00004be0| 20 c8 99 22 4f 53 5f 46 | 69 6c 65 22 2c 31 35 2c | .."OS_F|ile",15,|
|00004bf0| 59 35 24 20 b8 20 52 30 | 2c 52 31 2c 52 32 2c 52 |Y5$ . R0|,R1,R2,R|
|00004c00| 33 2c 52 34 0d 17 84 32 | 20 de 20 73 63 72 69 70 |3,R4...2| . scrip|
|00004c10| 74 25 20 28 52 34 2b 34 | 29 3a c8 99 22 4f 53 5f |t% (R4+4|):.."OS_|
|00004c20| 46 69 6c 65 22 2c 31 36 | 2c 59 35 24 2c 73 63 72 |File",16|,Y5$,scr|
|00004c30| 69 70 74 25 2c 30 0d 17 | 8e 3a 20 e3 20 6c 6f 6f |ipt%,0..|.: . loo|
|00004c40| 70 3d 30 20 b8 20 52 34 | 3a e7 20 3f 28 73 63 72 |p=0 . R4|:. ?(scr|
|00004c50| 69 70 74 25 2b 6c 6f 6f | 70 29 3d 31 30 20 3f 28 |ipt%+loo|p)=10 ?(|
|00004c60| 73 63 72 69 70 74 25 2b | 6c 6f 6f 70 29 3d 31 33 |script%+|loop)=13|
|00004c70| 0d 17 98 12 20 ed 3a 73 | 63 72 70 5f 6c 65 6e 3d |.... .:s|crp_len=|
|00004c80| 52 34 0d 17 a2 37 20 63 | 75 72 72 65 6e 74 6d 6f |R4...7 c|urrentmo|
|00004c90| 64 65 25 3d 31 32 3a 73 | 74 61 72 74 5f 69 74 3d |de%=12:s|tart_it=|
|00004ca0| 31 3a 63 68 6e 67 5f 6d | 6f 64 65 3d 30 3a 68 65 |1:chng_m|ode=0:he|
|00004cb0| 6c 70 5f 70 61 67 65 3d | 31 0d 17 ac 2c 20 73 68 |lp_page=|1..., sh|
|00004cc0| 6f 77 5f 74 75 72 74 6c | 65 3d b9 3a 63 6f 70 79 |ow_turtl|e=.:copy|
|00004cd0| 5f 63 6f 75 6e 74 3d 32 | 3a 50 72 6f 63 6e 61 6d |_count=2|:Procnam|
|00004ce0| 65 73 25 3d 30 0d 17 b6 | 22 20 c8 a0 20 32 3a 59 |es%=0...|" .. 2:Y|
|00004cf0| 24 3d 70 61 74 68 24 2b | 22 2e 53 6f 75 6e 64 73 |$=path$+|".Sounds|
|00004d00| 2e 53 6f 75 6e 64 22 0d | 17 c0 20 20 73 6f 75 6e |.Sound".|.. soun|
|00004d10| 64 5f 70 61 74 68 24 3d | 70 61 74 68 24 2b 22 2e |d_path$=|path$+".|
|00004d20| 53 6f 75 6e 64 73 22 0d | 17 ca 15 20 ff 20 28 22 |Sounds".|... . ("|
|00004d30| 52 4d 4c 6f 61 64 20 22 | 2b 59 24 29 0d 17 d4 17 |RMLoad "|+Y$)....|
|00004d40| 20 2a 43 48 41 4e 4e 45 | 4c 56 4f 49 43 45 20 32 | *CHANNE|LVOICE 2|
|00004d50| 20 31 30 0d 17 de 37 20 | 73 6f 75 6e 64 5f 70 69 | 10...7 |sound_pi|
|00004d60| 74 63 68 3d 30 3a 73 70 | 72 69 74 65 5f 73 69 7a |tch=0:sp|rite_siz|
|00004d70| 65 3d 31 3a 73 70 72 69 | 74 65 5f 6e 61 6d 65 24 |e=1:spri|te_name$|
|00004d80| 3d 22 44 65 66 61 75 6c | 74 22 0d 17 e8 0e 20 2a |="Defaul|t".... *|
|00004d90| 46 58 32 30 32 2c 33 32 | 0d 17 f2 39 20 70 65 6e |FX202,32|...9 pen|
|00004da0| 5f 74 68 69 63 6b 3d 31 | 3a 73 79 6d 6d 5f 6f 6e |_thick=1|:symm_on|
|00004db0| 3d 30 3a 70 72 69 6e 74 | 65 72 5f 73 74 61 74 75 |=0:print|er_statu|
|00004dc0| 73 3d 30 3a 70 72 69 6e | 74 5f 70 61 75 73 65 3d |s=0:prin|t_pause=|
|00004dd0| b9 0d 17 fc 06 20 e1 0d | 18 06 10 20 f4 2d 2d 2d |..... ..|... .---|
|00004de0| 2d 2d 2d 2d 2d 2d 2d 0d | 18 10 11 20 dd f2 69 6e |-------.|... ..in|
|00004df0| 69 74 69 61 6c 69 73 65 | 0d 18 1a 3f 20 61 6e 67 |itialise|...? ang|
|00004e00| 6c 65 3d 39 30 3a 70 65 | 6e 24 3d 22 64 6f 77 6e |le=90:pe|n$="down|
|00004e10| 22 3a 63 6f 6c 6f 75 72 | 3d 37 3a 74 78 70 6f 73 |":colour|=7:txpos|
|00004e20| 3d 35 30 30 3a 74 79 70 | 6f 73 3d 33 32 32 3a 66 |=500:typ|os=322:f|
|00004e30| 6c 61 67 67 25 3d a3 0d | 18 24 44 20 c8 99 22 57 |lagg%=..|.$D .."W|
|00004e40| 69 6d 70 5f 53 65 74 43 | 6f 6c 6f 75 72 22 2c 37 |imp_SetC|olour",7|
|00004e50| 3a 72 65 70 73 25 3d 30 | 3a 65 6e 64 73 25 3d 30 |:reps%=0|:ends%=0|
|00004e60| 3a 73 68 6f 77 5f 74 75 | 72 74 6c 65 3d b9 3a 50 |:show_tu|rtle=.:P|
|00004e70| 72 6f 63 6e 61 6d 65 73 | 25 3d 30 0d 18 2e 45 20 |rocnames|%=0...E |
|00004e80| 56 62 3d 30 3a 72 65 70 | 65 61 74 5f 77 69 6e 3d |Vb=0:rep|eat_win=|
|00004e90| 30 3a 73 79 6e 5f 66 6c | 61 67 3d 31 3a 73 74 6f |0:syn_fl|ag=1:sto|
|00004ea0| 72 65 64 5f 72 6f 75 74 | 69 6e 65 73 3d 30 3a 70 |red_rout|ines=0:p|
|00004eb0| 72 6f 63 5f 6c 6f 6f 70 | 3d 30 3a 61 24 3d 22 22 |roc_loop|=0:a$=""|
|00004ec0| 0d 18 38 0e 20 61 62 6f | 72 74 3d 30 3a e1 0d 18 |..8. abo|rt=0:...|
|00004ed0| 42 10 20 f4 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 18 |B. .----|------..|
|00004ee0| 4c 11 20 dd f2 64 72 61 | 77 74 75 72 74 6c 65 0d |L. ..dra|wturtle.|
|00004ef0| 18 56 35 20 c8 99 22 4f | 53 5f 53 70 72 69 74 65 |.V5 .."O|S_Sprite|
|00004f00| 4f 70 22 2c 33 31 36 2c | 67 72 61 62 5f 6d 65 6d |Op",316,|grab_mem|
|00004f10| 73 74 61 72 74 2c 22 61 | 72 65 61 22 2c 30 3a e6 |start,"a|rea",0:.|
|00004f20| 20 33 2c 36 0d 18 60 28 | 20 74 31 78 3d 74 78 70 | 3,6..`(| t1x=txp|
|00004f30| 6f 73 2b 28 34 30 2a 9b | 28 28 61 6e 67 6c 65 2b |os+(40*.|((angle+|
|00004f40| 31 36 30 29 2a af 2f 31 | 38 30 29 29 0d 18 6a 28 |160)*./1|80))..j(|
|00004f50| 20 74 31 79 3d 74 79 70 | 6f 73 2b 28 34 30 2a b5 | t1y=typ|os+(40*.|
|00004f60| 28 28 61 6e 67 6c 65 2b | 31 36 30 29 2a af 2f 31 |((angle+|160)*./1|
|00004f70| 38 30 29 29 0d 18 74 28 | 20 74 32 78 3d 74 78 70 |80))..t(| t2x=txp|
|00004f80| 6f 73 2b 28 34 30 2a 9b | 28 28 61 6e 67 6c 65 2b |os+(40*.|((angle+|
|00004f90| 32 30 30 29 2a af 2f 31 | 38 30 29 29 0d 18 7e 28 |200)*./1|80))..~(|
|00004fa0| 20 74 32 79 3d 74 79 70 | 6f 73 2b 28 34 30 2a b5 | t2y=typ|os+(40*.|
|00004fb0| 28 28 61 6e 67 6c 65 2b | 32 30 30 29 2a af 2f 31 |((angle+|200)*./1|
|00004fc0| 38 30 29 29 0d 18 88 49 | 20 e7 20 73 68 6f 77 5f |80))...I| . show_|
|00004fd0| 74 75 72 74 6c 65 3d b9 | 20 ec 20 74 31 78 2c 74 |turtle=.| . t1x,t|
|00004fe0| 31 79 3a ec 20 74 32 78 | 2c 74 32 79 3a f0 20 38 |1y:. t2x|,t2y:. 8|
|00004ff0| 36 2c 74 78 70 6f 73 2c | 74 79 70 6f 73 20 8b 20 |6,txpos,|typos . |
|00005000| ec 20 74 78 70 6f 73 2c | 74 79 70 6f 73 0d 18 92 |. txpos,|typos...|
|00005010| 2a 20 c8 99 22 4f 53 5f | 53 70 72 69 74 65 4f 70 |* .."OS_|SpriteOp|
|00005020| 22 2c 33 31 36 2c 67 72 | 61 62 5f 6d 65 6d 73 74 |",316,gr|ab_memst|
|00005030| 61 72 74 2c 30 2c 31 0d | 18 9c 32 20 f2 72 61 64 |art,0,1.|..2 .rad|
|00005040| 69 6f 5f 63 6c 69 63 6b | 28 77 68 61 6e 64 6c 65 |io_click|(whandle|
|00005050| 31 25 2c 32 30 2c 2d 37 | 38 34 2c 31 30 32 38 2c |1%,20,-7|84,1028,|
|00005060| 2d 37 38 34 2b 36 35 32 | 29 0d 18 a6 06 20 e1 0d |-784+652|).... ..|
|00005070| 18 b0 10 20 f4 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |... .---|-------.|
|00005080| 18 ba 17 20 dd f2 73 63 | 61 6e 63 6f 6d 6d 61 6e |... ..sc|ancomman|
|00005090| 64 28 43 43 24 29 0d 18 | c4 2d 20 f2 64 72 61 77 |d(CC$)..|.- .draw|
|000050a0| 74 75 72 74 6c 65 3a f2 | 73 79 6e 74 61 78 5f 31 |turtle:.|syntax_1|
|000050b0| 3a e7 20 73 79 6e 5f 66 | 6c 61 67 3d 31 20 f2 6f |:. syn_f|lag=1 .o|
|000050c0| 6f 3a e1 0d 18 ce 22 20 | f2 63 68 65 63 6b 5f 65 |o:...." |.check_e|
|000050d0| 73 63 61 70 65 3a e7 20 | 61 62 6f 72 74 3d 31 20 |scape:. |abort=1 |
|000050e0| f2 6f 6f 3a e1 0d 18 d8 | 0a 20 f2 73 63 61 6e 0d |.oo:....|. .scan.|
|000050f0| 18 e2 12 20 e7 20 43 24 | 3d 22 22 20 f2 6f 6f 3a |... . C$|="" .oo:|
|00005100| e1 0d 18 ec 1f 20 e7 20 | 43 24 3d 22 46 44 22 20 |..... . |C$="FD" |
|00005110| f2 6d 6f 74 69 6f 6e 28 | 31 29 3a f2 6f 6f 3a e1 |.motion(|1):.oo:.|
|00005120| 0d 18 f6 18 20 e7 20 43 | 24 3d 22 52 54 22 20 f2 |.... . C|$="RT" .|
|00005130| 72 74 3a f2 6f 6f 3a e1 | 0d 19 00 18 20 e7 20 43 |rt:.oo:.|.... . C|
|00005140| 24 3d 22 4c 54 22 20 f2 | 6c 74 3a f2 6f 6f 3a e1 |$="LT" .|lt:.oo:.|
|00005150| 0d 19 0a 20 20 e7 20 43 | 24 3d 22 42 4b 22 20 f2 |... . C|$="BK" .|
|00005160| 6d 6f 74 69 6f 6e 28 2d | 31 29 3a f2 6f 6f 3a e1 |motion(-|1):.oo:.|
|00005170| 0d 19 14 1a 20 e7 20 43 | 24 3d 22 48 4f 4d 45 22 |.... . C|$="HOME"|
|00005180| 20 f2 68 6d 3a f2 6f 6f | 3a e1 0d 19 1e 20 20 e7 | .hm:.oo|:.... .|
|00005190| 20 43 24 3d 22 52 45 50 | 45 41 54 22 20 f2 72 65 | C$="REP|EAT" .re|
|000051a0| 70 65 61 74 3a f2 6f 6f | 3a e1 0d 19 28 1c 20 e7 |peat:.oo|:...(. .|
|000051b0| 20 43 24 3d 22 43 4c 53 | 22 20 f2 63 6c 65 61 6e | C$="CLS|" .clean|
|000051c0| 3a f2 6f 6f 3a e1 0d 19 | 32 1e 20 e7 20 43 24 3d |:.oo:...|2. . C$=|
|000051d0| 22 50 45 4e 55 50 22 20 | f2 70 65 6e 75 70 3a f2 |"PENUP" |.penup:.|
|000051e0| 6f 6f 3a e1 0d 19 3c 22 | 20 e7 20 43 24 3d 22 50 |oo:...<"| . C$="P|
|000051f0| 45 4e 44 4f 57 4e 22 20 | f2 70 65 6e 64 6f 77 6e |ENDOWN" |.pendown|
|00005200| 3a f2 6f 6f 3a e1 0d 19 | 46 18 20 e7 20 43 24 3d |:.oo:...|F. . C$=|
|00005210| 22 54 4f 22 20 f2 74 6f | 3a f2 6f 6f 3a e1 0d 19 |"TO" .to|:.oo:...|
|00005220| 50 1c 20 e7 20 43 24 3d | 22 4d 41 4b 45 22 20 f2 |P. . C$=|"MAKE" .|
|00005230| 6d 61 6b 65 3a f2 6f 6f | 3a e1 0d 19 5a 20 20 e7 |make:.oo|:...Z .|
|00005240| 20 43 24 3d 22 43 4f 4c | 4f 55 52 22 20 f2 63 6f | C$="COL|OUR" .co|
|00005250| 6c 6f 75 72 3a f2 6f 6f | 3a e1 0d 19 64 20 20 e7 |lour:.oo|:...d .|
|00005260| 20 43 24 3d 22 43 49 52 | 43 4c 45 22 20 f2 63 69 | C$="CIR|CLE" .ci|
|00005270| 72 63 6c 65 3a f2 6f 6f | 3a e1 0d 19 6e 1c 20 e7 |rcle:.oo|:...n. .|
|00005280| 20 43 24 3d 22 46 49 4c | 4c 22 20 f2 66 69 6c 6c | C$="FIL|L" .fill|
|00005290| 3a f2 6f 6f 3a e1 0d 19 | 78 1c 20 e7 20 43 24 3d |:.oo:...|x. . C$=|
|000052a0| 22 53 45 54 58 22 20 f2 | 73 65 74 78 3a f2 6f 6f |"SETX" .|setx:.oo|
|000052b0| 3a e1 0d 19 82 1c 20 e7 | 20 43 24 3d 22 53 45 54 |:..... .| C$="SET|
|000052c0| 59 22 20 f2 73 65 74 79 | 3a f2 6f 6f 3a e1 0d 19 |Y" .sety|:.oo:...|
|000052d0| 8c 25 20 e7 20 43 24 3d | 22 48 45 41 44 49 4e 47 |.% . C$=|"HEADING|
|000052e0| 22 20 f2 73 65 74 68 65 | 61 64 69 6e 67 3a f2 6f |" .sethe|ading:.o|
|000052f0| 6f 3a e1 0d 19 96 1e 20 | e7 20 43 24 3d 22 57 52 |o:..... |. C$="WR|
|00005300| 49 54 45 22 20 f2 77 72 | 69 74 65 3a f2 6f 6f 3a |ITE" .wr|ite:.oo:|
|00005310| e1 0d 19 a0 1c 20 e7 20 | 43 24 3d 22 53 48 4f 57 |..... . |C$="SHOW|
|00005320| 22 20 f2 73 68 6f 77 3a | f2 6f 6f 3a e1 0d 19 aa |" .show:|.oo:....|
|00005330| 1c 20 e7 20 43 24 3d 22 | 48 49 44 45 22 20 f2 68 |. . C$="|HIDE" .h|
|00005340| 69 64 65 3a f2 6f 6f 3a | e1 0d 19 b4 1e 20 e7 20 |ide:.oo:|..... . |
|00005350| 43 24 3d 22 53 4f 55 4e | 44 22 20 f2 73 6f 75 6e |C$="SOUN|D" .soun|
|00005360| 64 3a f2 6f 6f 3a e1 0d | 19 be 1c 20 e7 20 43 24 |d:.oo:..|... . C$|
|00005370| 3d 22 57 41 49 54 22 20 | f2 77 61 69 74 3a f2 6f |="WAIT" |.wait:.o|
|00005380| 6f 3a e1 0d 19 c8 20 20 | e7 20 43 24 3d 22 53 50 |o:.... |. C$="SP|
|00005390| 52 49 54 45 22 20 f2 73 | 70 72 69 74 65 3a f2 6f |RITE" .s|prite:.o|
|000053a0| 6f 3a e1 0d 19 d2 22 20 | e7 20 43 24 3d 22 4c 4f |o:...." |. C$="LO|
|000053b0| 41 44 22 20 f2 6c 6f 61 | 64 73 70 72 69 74 65 3a |AD" .loa|dsprite:|
|000053c0| f2 6f 6f 3a e1 0d 19 dc | 25 20 e7 20 43 24 3d 22 |.oo:....|% . C$="|
|000053d0| 53 45 54 53 49 5a 45 22 | 20 f2 73 70 72 69 74 65 |SETSIZE"| .sprite|
|000053e0| 73 69 7a 65 3a f2 6f 6f | 3a e1 0d 19 e6 1e 20 e7 |size:.oo|:..... .|
|000053f0| 20 43 24 3d 22 46 4c 49 | 50 58 22 20 f2 66 6c 69 | C$="FLI|PX" .fli|
|00005400| 70 78 3a f2 6f 6f 3a e1 | 0d 19 f0 1e 20 e7 20 43 |px:.oo:.|.... . C|
|00005410| 24 3d 22 46 4c 49 50 59 | 22 20 f2 66 6c 69 70 79 |$="FLIPY|" .flipy|
|00005420| 3a f2 6f 6f 3a e1 0d 19 | fa 27 20 e7 20 43 24 3d |:.oo:...|.' . C$=|
|00005430| 22 53 45 54 50 49 54 43 | 48 22 20 f2 73 6f 75 6e |"SETPITC|H" .soun|
|00005440| 64 5f 70 69 74 63 68 3a | f2 6f 6f 3a e1 0d 1a 04 |d_pitch:|.oo:....|
|00005450| 27 20 e7 20 43 24 3d 22 | 53 45 54 4e 49 42 22 20 |' . C$="|SETNIB" |
|00005460| f2 73 65 74 5f 74 68 69 | 63 6b 6e 65 73 73 3a f2 |.set_thi|ckness:.|
|00005470| 6f 6f 3a e1 0d 1a 0e 1c | 20 e7 20 43 24 3d 22 53 |oo:.....| . C$="S|
|00005480| 59 4d 4f 4e 22 20 f2 73 | 79 6d 3a f2 6f 6f 3a e1 |YMON" .s|ym:.oo:.|
|00005490| 0d 1a 18 1d 20 e7 20 43 | 24 3d 22 53 59 4d 4f 46 |.... . C|$="SYMOF|
|000054a0| 46 22 20 f2 73 79 6d 3a | f2 6f 6f 3a e1 0d 1a 22 |F" .sym:|.oo:..."|
|000054b0| 1e 20 e7 20 43 24 3d 22 | 49 4e 50 55 54 22 20 f2 |. . C$="|INPUT" .|
|000054c0| 69 6e 70 75 74 3a f2 6f | 6f 3a e1 0d 1a 2c 12 20 |input:.o|o:...,. |
|000054d0| f2 63 68 65 63 6b 70 72 | 6f 63 73 3a e1 0d 1a 36 |.checkpr|ocs:...6|
|000054e0| 10 20 f4 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 1a 40 |. .-----|-----..@|
|000054f0| 17 20 dd f2 6f 6f 3a f2 | 64 72 61 77 74 75 72 74 |. ..oo:.|drawturt|
|00005500| 6c 65 3a e1 0d 1a 4a 10 | 20 f4 2d 2d 2d 2d 2d 2d |le:...J.| .------|
|00005510| 2d 2d 2d 2d 0d 1a 54 21 | 20 dd f2 72 74 3a f2 66 |----..T!| ..rt:.f|
|00005520| 69 6e 64 6e 75 6d 62 65 | 72 3a e7 20 61 62 6f 72 |indnumbe|r:. abor|
|00005530| 74 3d 31 20 e1 0d 1a 68 | 13 20 61 6e 67 6c 65 3d |t=1 ...h|. angle=|
|00005540| 61 6e 67 6c 65 2d 4e 6f | 0d 1a 72 20 20 f5 3a e7 |angle-No|..r .:.|
|00005550| 20 61 6e 67 6c 65 3c 30 | 20 61 6e 67 6c 65 3d 61 | angle<0| angle=a|
|00005560| 6e 67 6c 65 2b 33 36 30 | 0d 1a 7c 0f 20 fd 20 61 |ngle+360|..|. . a|
|00005570| 6e 67 6c 65 3e 3d 30 0d | 1a 86 04 0d 1a 90 2d 20 |ngle>=0.|......- |
|00005580| f5 3a e7 20 61 6e 67 6c | 65 3e 33 35 39 2e 39 39 |.:. angl|e>359.99|
|00005590| 39 39 39 39 39 39 39 39 | 20 61 6e 67 6c 65 3d 61 |99999999| angle=a|
|000055a0| 6e 67 6c 65 2d 33 36 30 | 0d 1a 9a 1c 20 fd 20 61 |ngle-360|.... . a|
|000055b0| 6e 67 6c 65 3c 3d 33 35 | 39 2e 39 39 39 39 39 39 |ngle<=35|9.999999|
|000055c0| 39 39 39 39 0d 1a a4 06 | 20 e1 0d 1a ae 10 20 f4 |9999....| ..... .|
|000055d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 1a b8 09 20 dd |--------|--.... .|
|000055e0| f2 6c 74 0d 1a c2 1c 20 | f2 66 69 6e 64 6e 75 6d |.lt.... |.findnum|
|000055f0| 62 65 72 3a e7 20 61 62 | 6f 72 74 3d 31 20 e1 0d |ber:. ab|ort=1 ..|
|00005600| 1a cc 13 20 61 6e 67 6c | 65 3d 61 6e 67 6c 65 2b |... angl|e=angle+|
|00005610| 4e 6f 0d 1a e0 2d 20 f5 | 3a e7 20 61 6e 67 6c 65 |No...- .|:. angle|
|00005620| 3e 33 35 39 2e 39 39 39 | 39 39 39 39 39 39 39 20 |>359.999|9999999 |
|00005630| 61 6e 67 6c 65 3d 61 6e | 67 6c 65 2d 33 36 30 0d |angle=an|gle-360.|
|00005640| 1a ea 1c 20 fd 20 61 6e | 67 6c 65 3c 3d 33 35 39 |... . an|gle<=359|
|00005650| 2e 39 39 39 39 39 39 39 | 39 39 39 0d 1a fe 20 20 |.9999999|999... |
|00005660| f5 3a e7 20 61 6e 67 6c | 65 3c 30 20 61 6e 67 6c |.:. angl|e<0 angl|
|00005670| 65 3d 61 6e 67 6c 65 2b | 33 36 30 0d 1b 08 0f 20 |e=angle+|360.... |
|00005680| fd 20 61 6e 67 6c 65 3e | 3d 30 0d 1b 12 06 20 e1 |. angle>|=0.... .|
|00005690| 0d 1b 1c 10 20 f4 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.... .--|--------|
|000056a0| 0d 1b 26 11 20 dd f2 73 | 65 74 68 65 61 64 69 6e |..&. ..s|etheadin|
|000056b0| 67 0d 1b 30 1c 20 f2 66 | 69 6e 64 6e 75 6d 62 65 |g..0. .f|indnumbe|
|000056c0| 72 3a e7 20 61 62 6f 72 | 74 3d 31 20 e1 0d 1b 3a |r:. abor|t=1 ...:|
|000056d0| 2d 20 61 6e 67 6c 65 3d | 34 35 30 2d 4e 6f 3a e7 |- angle=|450-No:.|
|000056e0| 20 61 6e 67 6c 65 3e 33 | 35 39 20 61 6e 67 6c 65 | angle>3|59 angle|
|000056f0| 3d 61 6e 67 6c 65 2d 33 | 36 30 0d 1b 44 06 20 e1 |=angle-3|60..D. .|
|00005700| 0d 1b 4e 10 20 f4 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..N. .--|--------|
|00005710| 0d 1b 58 11 20 dd f2 6d | 6f 74 69 6f 6e 28 61 6c |..X. ..m|otion(al|
|00005720| 29 0d 1b 62 1c 20 f2 66 | 69 6e 64 6e 75 6d 62 65 |)..b. .f|indnumbe|
|00005730| 72 3a e7 20 61 62 6f 72 | 74 3d 31 20 e1 0d 1b 6c |r:. abor|t=1 ...l|
|00005740| 1e 20 78 66 3d 74 78 70 | 6f 73 2d 35 30 30 3a 79 |. xf=txp|os-500:y|
|00005750| 66 3d 74 79 70 6f 73 2d | 33 32 32 0d 1b 76 44 20 |f=typos-|322..vD |
|00005760| 71 32 78 3d 35 30 30 2d | 78 66 3a 71 32 79 3d 74 |q2x=500-|xf:q2y=t|
|00005770| 79 70 6f 73 3a 71 33 78 | 3d 35 30 30 2d 78 66 3a |ypos:q3x|=500-xf:|
|00005780| 71 33 79 3d 33 32 32 2d | 79 66 3a 71 34 78 3d 74 |q3y=322-|yf:q4x=t|
|00005790| 78 70 6f 73 3a 71 34 79 | 3d 33 32 32 2d 79 66 0d |xpos:q4y|=322-yf.|
|000057a0| 1b 80 29 20 c8 99 22 57 | 69 6d 70 5f 53 65 74 43 |..) .."W|imp_SetC|
|000057b0| 6f 6c 6f 75 72 22 2c 63 | 6f 6c 6f 75 72 3a e6 20 |olour",c|olour:. |
|000057c0| 30 2c 63 6f 6c 6f 75 72 | 0d 1b 8a 20 20 e7 20 61 |0,colour|... . a|
|000057d0| 6e 67 6c 65 3e 33 35 39 | 20 61 6e 67 6c 65 3d 61 |ngle>359| angle=a|
|000057e0| 6e 67 6c 65 2d 33 36 30 | 0d 1b 94 35 20 e7 20 61 |ngle-360|...5 . a|
|000057f0| 6c 3d 31 20 41 41 31 3d | 9b 28 28 61 6e 67 6c 65 |l=1 AA1=|.((angle|
|00005800| 29 2a af 2f 31 38 30 29 | 3a 42 42 31 3d b5 28 28 |)*./180)|:BB1=.((|
|00005810| 61 6e 67 6c 65 29 2a af | 2f 31 38 30 29 0d 1b 9e |angle)*.|/180)...|
|00005820| 3e 20 e7 20 61 6c 3d 2d | 31 20 41 41 31 3d 9b 28 |> . al=-|1 AA1=.(|
|00005830| 28 61 6e 67 6c 65 2b 31 | 38 30 29 2a af 2f 31 38 |(angle+1|80)*./18|
|00005840| 30 29 3a 42 42 31 3d b5 | 28 28 61 6e 67 6c 65 2b |0):BB1=.|((angle+|
|00005850| 31 38 30 29 2a af 2f 31 | 38 30 29 0d 1b a8 27 20 |180)*./1|80)...' |
|00005860| e7 20 41 41 31 3e 2d 30 | 2e 30 30 30 30 31 20 80 |. AA1>-0|.00001 .|
|00005870| 20 41 41 31 3c 30 2e 30 | 30 30 30 31 20 41 41 31 | AA1<0.0|0001 AA1|
|00005880| 3d 30 0d 1b b2 27 20 e7 | 20 42 42 31 3e 2d 30 2e |=0...' .| BB1>-0.|
|00005890| 30 30 30 30 31 20 80 20 | 42 42 31 3c 30 2e 30 30 |00001 . |BB1<0.00|
|000058a0| 30 30 31 20 42 42 31 3d | 30 0d 1b bc 18 20 41 41 |001 BB1=|0.... AA|
|000058b0| 3d 4e 6f 2a 41 41 31 3a | 42 42 3d 4e 6f 2a 42 42 |=No*AA1:|BB=No*BB|
|000058c0| 31 0d 1b c6 1a 20 41 3d | 41 41 2b 74 78 70 6f 73 |1.... A=|AA+txpos|
|000058d0| 3a 42 3d 42 42 2b 74 79 | 70 6f 73 0d 1b d0 04 0d |:B=BB+ty|pos.....|
|000058e0| 1b da 3a 20 c8 99 22 4f | 53 5f 53 70 72 69 74 65 |..: .."O|S_Sprite|
|000058f0| 4f 70 22 2c 33 31 36 2c | 67 72 61 62 5f 6d 65 6d |Op",316,|grab_mem|
|00005900| 73 74 61 72 74 2c 22 61 | 72 65 61 22 2c 30 3a e6 |start,"a|rea",0:.|
|00005910| 20 30 2c 63 6f 6c 6f 75 | 72 0d 1b e4 14 20 e7 20 | 0,colou|r.... . |
|00005920| 70 65 6e 5f 74 68 69 63 | 6b 3d 31 20 8c 0d 1b ee |pen_thic|k=1 ....|
|00005930| 2f 20 20 e7 20 70 65 6e | 24 3d 22 64 6f 77 6e 22 |/ . pen|$="down"|
|00005940| 20 ec 20 74 78 70 6f 73 | 2c 74 79 70 6f 73 3a df | . txpos|,typos:.|
|00005950| 20 41 2c 42 20 8b 20 ec | 20 41 2c 42 0d 1b f8 22 | A,B . .| A,B..."|
|00005960| 20 20 20 e7 20 73 79 6d | 6d 5f 6f 6e 3d 31 20 80 | . sym|m_on=1 .|
|00005970| 20 70 65 6e 24 3d 22 64 | 6f 77 6e 22 20 8c 0d 1c | pen$="d|own" ...|
|00005980| 02 1b 20 20 20 20 78 66 | 32 3d 41 2d 35 30 30 3a |.. xf|2=A-500:|
|00005990| 79 66 32 3d 42 2d 33 32 | 32 0d 1c 0c 49 20 20 20 |yf2=B-32|2...I |
|000059a0| 20 71 32 78 32 3d 35 30 | 30 2d 78 66 32 3a 71 32 | q2x2=50|0-xf2:q2|
|000059b0| 79 32 3d 42 3a 71 33 78 | 32 3d 35 30 30 2d 78 66 |y2=B:q3x|2=500-xf|
|000059c0| 32 3a 71 33 79 32 3d 33 | 32 32 2d 79 66 32 3a 71 |2:q3y2=3|22-yf2:q|
|000059d0| 34 78 32 3d 41 3a 71 34 | 79 32 3d 33 32 32 2d 79 |4x2=A:q4|y2=322-y|
|000059e0| 66 32 0d 1c 16 33 20 20 | 20 20 ec 20 71 32 78 2c |f2...3 | . q2x,|
|000059f0| 71 32 79 3a df 20 71 32 | 78 32 2c 71 32 79 32 3a |q2y:. q2|x2,q2y2:|
|00005a00| ec 20 71 33 78 2c 71 33 | 79 3a df 20 71 33 78 32 |. q3x,q3|y:. q3x2|
|00005a10| 2c 71 33 79 32 0d 1c 20 | 23 20 20 20 20 ec 20 71 |,q3y2.. |# . q|
|00005a20| 34 78 2c 71 34 79 3a df | 20 71 34 78 32 2c 71 34 |4x,q4y:.| q4x2,q4|
|00005a30| 79 32 3a ec 20 41 2c 42 | 0d 1c 2a 08 20 20 20 cd |y2:. A,B|..*. .|
|00005a40| 0d 1c 34 14 20 74 78 70 | 6f 73 3d 41 3a 74 79 70 |..4. txp|os=A:typ|
|00005a50| 6f 73 3d 42 0d 1c 3e 06 | 20 cd 0d 1c 48 04 0d 1c |os=B..>.| ...H...|
|00005a60| 52 3a 20 e7 20 70 65 6e | 5f 74 68 69 63 6b 3d 31 |R: . pen|_thick=1|
|00005a70| 20 c8 99 22 4f 53 5f 53 | 70 72 69 74 65 4f 70 22 | .."OS_S|priteOp"|
|00005a80| 2c 33 31 36 2c 67 72 61 | 62 5f 6d 65 6d 73 74 61 |,316,gra|b_memsta|
|00005a90| 72 74 2c 30 2c 31 3a e1 | 0d 1c 66 14 20 e7 20 70 |rt,0,1:.|..f. . p|
|00005aa0| 65 6e 24 3d 22 64 6f 77 | 6e 22 20 8c 0d 1c 70 33 |en$="dow|n" ...p3|
|00005ab0| 20 20 50 58 31 3d 74 78 | 70 6f 73 2b 28 28 70 65 | PX1=tx|pos+((pe|
|00005ac0| 6e 5f 74 68 69 63 6b 2f | 32 29 2a 9b 28 28 61 6e |n_thick/|2)*.((an|
|00005ad0| 67 6c 65 2b 39 30 29 2a | af 2f 31 38 30 29 29 0d |gle+90)*|./180)).|
|00005ae0| 1c 7a 33 20 20 50 59 31 | 3d 74 79 70 6f 73 2b 28 |.z3 PY1|=typos+(|
|00005af0| 28 70 65 6e 5f 74 68 69 | 63 6b 2f 32 29 2a b5 28 |(pen_thi|ck/2)*.(|
|00005b00| 28 61 6e 67 6c 65 2b 39 | 30 29 2a af 2f 31 38 30 |(angle+9|0)*./180|
|00005b10| 29 29 0d 1c 84 34 20 20 | 50 58 32 3d 74 78 70 6f |))...4 |PX2=txpo|
|00005b20| 73 2b 28 28 70 65 6e 5f | 74 68 69 63 6b 2f 32 29 |s+((pen_|thick/2)|
|00005b30| 2a 9b 28 28 61 6e 67 6c | 65 2b 32 37 30 29 2a af |*.((angl|e+270)*.|
|00005b40| 2f 31 38 30 29 29 0d 1c | 8e 34 20 20 50 59 32 3d |/180))..|.4 PY2=|
|00005b50| 74 79 70 6f 73 2b 28 28 | 70 65 6e 5f 74 68 69 63 |typos+((|pen_thic|
|00005b60| 6b 2f 32 29 2a b5 28 28 | 61 6e 67 6c 65 2b 32 37 |k/2)*.((|angle+27|
|00005b70| 30 29 2a af 2f 31 38 30 | 29 29 0d 1c 98 37 20 20 |0)*./180|))...7 |
|00005b80| 50 58 33 3d 41 41 2b 74 | 78 70 6f 73 2b 28 28 70 |PX3=AA+t|xpos+((p|
|00005b90| 65 6e 5f 74 68 69 63 6b | 2f 32 29 2a 9b 28 28 61 |en_thick|/2)*.((a|
|00005ba0| 6e 67 6c 65 2b 32 37 30 | 29 2a af 2f 31 38 30 29 |ngle+270|)*./180)|
|00005bb0| 29 0d 1c a2 37 20 20 50 | 59 33 3d 42 42 2b 74 79 |)...7 P|Y3=BB+ty|
|00005bc0| 70 6f 73 2b 28 28 70 65 | 6e 5f 74 68 69 63 6b 2f |pos+((pe|n_thick/|
|00005bd0| 32 29 2a b5 28 28 61 6e | 67 6c 65 2b 32 37 30 29 |2)*.((an|gle+270)|
|00005be0| 2a af 2f 31 38 30 29 29 | 0d 1c ac 27 20 20 ec 20 |*./180))|...' . |
|00005bf0| 50 58 31 2c 50 59 31 3a | ec 20 50 58 32 2c 50 59 |PX1,PY1:|. PX2,PY|
|00005c00| 32 3a f0 20 31 31 37 2c | 50 58 33 2c 50 59 33 0d |2:. 117,|PX3,PY3.|
|00005c10| 1c b6 04 0d 1c c0 14 20 | 20 20 e7 20 73 79 6d 6d |....... | . symm|
|00005c20| 5f 6f 6e 3d 31 20 8c 0d | 1c ca 37 20 20 20 20 78 |_on=1 ..|..7 x|
|00005c30| 66 31 3d 50 58 31 2d 35 | 30 30 3a 79 66 31 3d 50 |f1=PX1-5|00:yf1=P|
|00005c40| 59 31 2d 33 32 32 3a 78 | 66 32 3d 50 58 32 2d 35 |Y1-322:x|f2=PX2-5|
|00005c50| 30 30 3a 79 66 32 3d 50 | 59 32 2d 33 32 32 0d 1c |00:yf2=P|Y2-322..|
|00005c60| d4 3b 20 20 20 20 78 66 | 33 3d 50 58 33 2d 35 30 |.; xf|3=PX3-50|
|00005c70| 30 3a 79 66 33 3d 50 59 | 33 2d 33 32 32 3a ec 20 |0:yf3=PY|3-322:. |
|00005c80| 35 30 30 2d 78 66 31 2c | 50 59 31 3a ec 20 35 30 |500-xf1,|PY1:. 50|
|00005c90| 30 2d 78 66 32 2c 50 59 | 32 0d 1c de 3d 20 20 20 |0-xf2,PY|2...= |
|00005ca0| 20 f0 20 31 31 37 2c 35 | 30 30 2d 78 66 33 2c 50 | . 117,5|00-xf3,P|
|00005cb0| 59 33 3a ec 20 35 30 30 | 2d 78 66 31 2c 33 32 32 |Y3:. 500|-xf1,322|
|00005cc0| 2d 79 66 31 3a ec 20 35 | 30 30 2d 78 66 32 2c 33 |-yf1:. 5|00-xf2,3|
|00005cd0| 32 32 2d 79 66 32 0d 1c | e8 39 20 20 20 20 f0 20 |22-yf2..|.9 . |
|00005ce0| 31 31 37 2c 35 30 30 2d | 78 66 33 2c 33 32 32 2d |117,500-|xf3,322-|
|00005cf0| 79 66 33 3a ec 20 50 58 | 31 2c 33 32 32 2d 79 66 |yf3:. PX|1,322-yf|
|00005d00| 31 3a ec 20 50 58 32 2c | 33 32 32 2d 79 66 32 0d |1:. PX2,|322-yf2.|
|00005d10| 1c f2 1f 20 20 20 20 f0 | 20 31 31 37 2c 50 58 33 |... .| 117,PX3|
|00005d20| 2c 33 32 32 2d 79 66 33 | 3a ec 20 41 2c 42 0d 1c |,322-yf3|:. A,B..|
|00005d30| fc 08 20 20 20 cd 0d 1d | 06 06 20 cd 0d 1d 10 04 |.. ...|.. .....|
|00005d40| 0d 1d 1a 2a 20 c8 99 22 | 4f 53 5f 53 70 72 69 74 |...* .."|OS_Sprit|
|00005d50| 65 4f 70 22 2c 33 31 36 | 2c 67 72 61 62 5f 6d 65 |eOp",316|,grab_me|
|00005d60| 6d 73 74 61 72 74 2c 30 | 2c 31 0d 1d 24 16 20 74 |mstart,0|,1..$. t|
|00005d70| 78 70 6f 73 3d 41 3a 74 | 79 70 6f 73 3d 42 3a e1 |xpos=A:t|ypos=B:.|
|00005d80| 0d 1d 2e 10 20 f4 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.... .--|--------|
|00005d90| 0d 1d 38 23 20 dd f2 73 | 65 74 78 3a f2 66 69 6e |..8# ..s|etx:.fin|
|00005da0| 64 6e 75 6d 62 65 72 3a | e7 20 61 62 6f 72 74 3d |dnumber:|. abort=|
|00005db0| 31 20 e1 0d 1d 4c 0f 20 | 74 78 70 6f 73 3d 4e 6f |1 ...L. |txpos=No|
|00005dc0| 3a e1 0d 1d 56 10 20 f4 | 2d 2d 2d 2d 2d 2d 2d 2d |:...V. .|--------|
|00005dd0| 2d 2d 0d 1d 60 23 20 dd | f2 73 65 74 79 3a f2 66 |--..`# .|.sety:.f|
|00005de0| 69 6e 64 6e 75 6d 62 65 | 72 3a e7 20 61 62 6f 72 |indnumbe|r:. abor|
|00005df0| 74 3d 31 20 e1 0d 1d 74 | 0f 20 74 79 70 6f 73 3d |t=1 ...t|. typos=|
|00005e00| 4e 6f 3a e1 0d 1d 7e 10 | 20 f4 2d 2d 2d 2d 2d 2d |No:...~.| .------|
|00005e10| 2d 2d 2d 2d 0d 1d 88 28 | 20 dd f2 68 6d 3a 74 78 |----...(| ..hm:tx|
|00005e20| 70 6f 73 3d 35 30 30 3a | 74 79 70 6f 73 3d 33 32 |pos=500:|typos=32|
|00005e30| 32 3a 61 6e 67 6c 65 3d | 39 30 3a e1 0d 1d 92 10 |2:angle=|90:.....|
|00005e40| 20 f4 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 1d 9c 0c | .------|----....|
|00005e50| 20 dd f2 63 6c 65 61 6e | 0d 1d a6 2f 20 c8 99 22 | ..clean|.../ .."|
|00005e60| 4f 53 5f 53 70 72 69 74 | 65 4f 70 22 2c 33 31 36 |OS_Sprit|eOp",316|
|00005e70| 2c 67 72 61 62 5f 6d 65 | 6d 73 74 61 72 74 2c 22 |,grab_me|mstart,"|
|00005e80| 61 72 65 61 22 2c 30 0d | 1d b0 2d 20 c8 99 22 57 |area",0.|..- .."W|
|00005e90| 69 6d 70 5f 53 65 74 43 | 6f 6c 6f 75 72 22 2c 30 |imp_SetC|olour",0|
|00005ea0| 3a c8 93 20 c8 90 20 30 | 2c 30 2c 31 31 30 30 2c |:.. .. 0|,0,1100,|
|00005eb0| 31 31 30 30 0d 1d ba 21 | 20 74 78 70 6f 73 3d 35 |1100...!| txpos=5|
|00005ec0| 30 30 3a 74 79 70 6f 73 | 3d 33 32 32 3a 61 6e 67 |00:typos|=322:ang|
|00005ed0| 6c 65 3d 39 30 0d 1d c4 | 2c 20 c8 99 22 4f 53 5f |le=90...|, .."OS_|
|00005ee0| 53 70 72 69 74 65 4f 70 | 22 2c 33 31 36 2c 67 72 |SpriteOp|",316,gr|
|00005ef0| 61 62 5f 6d 65 6d 73 74 | 61 72 74 2c 30 2c 31 3a |ab_memst|art,0,1:|
|00005f00| e1 0d 1d ce 10 20 f4 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..... .-|--------|
|00005f10| 2d 0d 1d d8 0d 20 dd f2 | 63 69 72 63 6c 65 0d 1d |-.... ..|circle..|
|00005f20| e2 2f 20 c8 99 22 4f 53 | 5f 53 70 72 69 74 65 4f |./ .."OS|_SpriteO|
|00005f30| 70 22 2c 33 31 36 2c 67 | 72 61 62 5f 6d 65 6d 73 |p",316,g|rab_mems|
|00005f40| 74 61 72 74 2c 22 61 72 | 65 61 22 2c 30 0d 1d ec |tart,"ar|ea",0...|
|00005f50| 1c 20 f2 66 69 6e 64 6e | 75 6d 62 65 72 3a e7 20 |. .findn|umber:. |
|00005f60| 61 62 6f 72 74 3d 31 20 | e1 0d 1d f6 30 20 c8 99 |abort=1 |....0 ..|
|00005f70| 22 57 69 6d 70 5f 53 65 | 74 43 6f 6c 6f 75 72 22 |"Wimp_Se|tColour"|
|00005f80| 2c 63 6f 6c 6f 75 72 3a | c8 8f 20 74 78 70 6f 73 |,colour:|.. txpos|
|00005f90| 2c 74 79 70 6f 73 2c 4e | 6f 0d 1e 00 2c 20 c8 99 |,typos,N|o..., ..|
|00005fa0| 22 4f 53 5f 53 70 72 69 | 74 65 4f 70 22 2c 33 31 |"OS_Spri|teOp",31|
|00005fb0| 36 2c 67 72 61 62 5f 6d | 65 6d 73 74 61 72 74 2c |6,grab_m|emstart,|
|00005fc0| 30 2c 31 3a e1 0d 1e 0a | 10 20 f4 2d 2d 2d 2d 2d |0,1:....|. .-----|
|00005fd0| 2d 2d 2d 2d 2d 0d 1e 14 | 59 20 dd f2 70 65 6e 75 |-----...|Y ..penu|
|00005fe0| 70 3a 70 65 6e 24 3d 22 | 75 70 22 3a f2 69 73 65 |p:pen$="|up":.ise|
|00005ff0| 74 67 65 6e 28 77 68 61 | 6e 64 6c 65 31 25 2c 32 |tgen(wha|ndle1%,2|
|00006000| 33 2c 22 74 62 70 6c 69 | 6e 32 22 29 3a f2 69 73 |3,"tbpli|n2"):.is|
|00006010| 65 74 67 65 6e 28 77 68 | 61 6e 64 6c 65 31 25 2c |etgen(wh|andle1%,|
|00006020| 32 34 2c 22 74 62 70 6c | 69 6e 22 29 3a e1 0d 1e |24,"tbpl|in"):...|
|00006030| 1e 10 20 f4 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 1e |.. .----|------..|
|00006040| 28 5d 20 dd f2 70 65 6e | 64 6f 77 6e 3a 70 65 6e |(] ..pen|down:pen|
|00006050| 24 3d 22 64 6f 77 6e 22 | 3a f2 69 73 65 74 67 65 |$="down"|:.isetge|
|00006060| 6e 28 77 68 61 6e 64 6c | 65 31 25 2c 32 34 2c 22 |n(whandl|e1%,24,"|
|00006070| 74 62 70 6c 69 6e 32 22 | 29 3a f2 69 73 65 74 67 |tbplin2"|):.isetg|
|00006080| 65 6e 28 77 68 61 6e 64 | 6c 65 31 25 2c 32 33 2c |en(whand|le1%,23,|
|00006090| 22 74 62 70 6c 69 6e 22 | 29 3a e1 0d 1e 32 10 20 |"tbplin"|):...2. |
|000060a0| f4 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 1e 3c 0b 20 |.-------|---..<. |
|000060b0| dd f2 66 69 6c 6c 0d 1e | 46 2f 20 c8 99 22 4f 53 |..fill..|F/ .."OS|
|000060c0| 5f 53 70 72 69 74 65 4f | 70 22 2c 33 31 36 2c 67 |_SpriteO|p",316,g|
|000060d0| 72 61 62 5f 6d 65 6d 73 | 74 61 72 74 2c 22 61 72 |rab_mems|tart,"ar|
|000060e0| 65 61 22 2c 30 0d 1e 50 | 26 20 c8 99 22 4f 53 5f |ea",0..P|& .."OS_|
|000060f0| 42 79 74 65 22 2c 31 33 | 35 20 b8 20 2c 2c 52 32 |Byte",13|5 . ,,R2|
|00006100| 3a e6 20 30 2c 63 6f 6c | 6f 75 72 0d 1e 5a 23 20 |:. 0,col|our..Z# |
|00006110| 61 25 3d b0 74 78 70 6f | 73 2c 74 79 70 6f 73 29 |a%=.txpo|s,typos)|
|00006120| 3a e7 20 61 25 3d 63 6f | 6c 6f 75 72 20 e1 0d 1e |:. a%=co|lour ...|
|00006130| 64 2f 20 c8 99 22 4f 53 | 5f 52 65 61 64 4d 6f 64 |d/ .."OS|_ReadMod|
|00006140| 65 56 61 72 69 61 62 6c | 65 22 2c 2d 31 2c 33 20 |eVariabl|e",-1,3 |
|00006150| b8 20 2c 2c 63 6f 6c 5f | 72 61 6e 67 65 0d 1e 6e |. ,,col_|range..n|
|00006160| 27 20 e7 20 63 6f 6c 5f | 72 61 6e 67 65 3d 36 33 |' . col_|range=63|
|00006170| 20 61 74 25 3d c8 9c 28 | 74 78 70 6f 73 2c 74 79 | at%=..(|txpos,ty|
|00006180| 70 6f 73 29 0d 1e 78 2e | 20 e7 20 63 6f 6c 5f 72 |pos)..x.| . col_r|
|00006190| 61 6e 67 65 3d 31 35 20 | e6 20 31 32 38 2b 61 25 |ange=15 |. 128+a%|
|000061a0| 20 8b 20 e6 20 31 32 38 | 2b 61 25 20 c8 9c 20 61 | . . 128|+a% .. a|
|000061b0| 74 25 0d 1e 82 3b 20 c8 | 90 20 74 78 70 6f 73 2c |t%...; .|. txpos,|
|000061c0| 74 79 70 6f 73 3a c8 99 | 22 4f 53 5f 53 70 72 69 |typos:..|"OS_Spri|
|000061d0| 74 65 4f 70 22 2c 33 31 | 36 2c 67 72 61 62 5f 6d |teOp",31|6,grab_m|
|000061e0| 65 6d 73 74 61 72 74 2c | 30 2c 31 3a e1 0d 1e 8c |emstart,|0,1:....|
|000061f0| 10 20 f4 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 1e 96 |. .-----|-----...|
|00006200| 0d 20 dd f2 72 65 70 65 | 61 74 0d 1e a0 39 20 43 |. ..repe|at...9 C|
|00006210| 24 3d 22 52 45 50 45 41 | 54 22 3a 43 43 24 3d c2 |$="REPEA|T":CC$=.|
|00006220| 56 69 72 5f 50 72 6f 31 | 24 28 32 2c 30 29 2c a9 |Vir_Pro1|$(2,0),.|
|00006230| 28 56 69 72 5f 50 72 6f | 31 24 28 32 2c 30 29 29 |(Vir_Pro|1$(2,0))|
|00006240| 2d 37 29 0d 1e aa 3b 20 | f2 66 69 6e 64 6e 75 6d |-7)...; |.findnum|
|00006250| 62 65 72 3a e7 20 61 62 | 6f 72 74 3d 31 20 66 6c |ber:. ab|ort=1 fl|
|00006260| 61 67 67 25 3d a3 3a c8 | 99 22 57 69 6d 70 5f 43 |agg%=.:.|."Wimp_C|
|00006270| 72 65 61 74 65 4d 65 6e | 75 22 2c 2c 2d 31 0d 1e |reateMen|u",,-1..|
|00006280| b4 1b 20 f2 6f 70 65 6e | 77 69 6e 64 6f 77 28 77 |.. .open|window(w|
|00006290| 68 61 6e 64 6c 65 34 25 | 29 0d 1e be 29 20 f2 69 |handle4%|)...) .i|
|000062a0| 73 65 74 67 65 6e 28 77 | 68 61 6e 64 6c 65 34 25 |setgen(w|handle4%|
|000062b0| 2c 31 2c 56 69 72 5f 50 | 72 6f 31 24 28 32 2c 30 |,1,Vir_P|ro1$(2,0|
|000062c0| 29 29 0d 1e c8 33 20 c8 | 99 22 57 69 6d 70 5f 53 |))...3 .|."Wimp_S|
|000062d0| 65 74 43 61 72 65 74 50 | 6f 73 69 74 69 6f 6e 22 |etCaretP|osition"|
|000062e0| 2c 77 68 61 6e 64 6c 65 | 34 25 2c 32 2c 30 2c 2c |,whandle|4%,2,0,,|
|000062f0| 2d 31 2c 2d 31 0d 1e d2 | 27 20 66 6c 61 67 67 25 |-1,-1...|' flagg%|
|00006300| 3d a3 3a c8 99 22 57 69 | 6d 70 5f 43 72 65 61 74 |=.:.."Wi|mp_Creat|
|00006310| 65 4d 65 6e 75 22 2c 2c | 2d 31 3a e1 0d 1e dc 10 |eMenu",,|-1:.....|
|00006320| 20 f4 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 1e e6 09 | .------|----....|
|00006330| 20 dd f2 74 6f 0d 1e f0 | 2d 20 e7 20 50 72 6f 63 | ..to...|- . Proc|
|00006340| 6e 61 6d 65 73 25 3d 31 | 30 20 f2 70 72 6f 63 6c |names%=1|0 .procl|
|00006350| 69 6d 5f 65 72 72 6f 72 | 3a 61 62 6f 72 74 3d 31 |im_error|:abort=1|
|00006360| 3a e1 0d 1e fa 10 20 70 | 72 6f 63 5f 66 6c 61 67 |:..... p|roc_flag|
|00006370| 3d 30 0d 1f 04 04 0d 1f | 0e 15 20 e7 20 50 72 6f |=0......|.. . Pro|
|00006380| 63 6e 61 6d 65 73 25 3e | 30 20 8c 0d 1f 18 1c 20 |cnames%>|0 ..... |
|00006390| 20 e3 20 6c 6f 6f 70 34 | 3d 31 20 b8 20 50 72 6f | . loop4|=1 . Pro|
|000063a0| 63 6e 61 6d 65 73 25 0d | 1f 22 36 20 20 e7 20 50 |cnames%.|."6 . P|
|000063b0| 72 6f 63 6e 61 6d 65 73 | 24 28 6c 6f 6f 70 34 29 |rocnames|$(loop4)|
|000063c0| 3d c2 43 43 24 2c 28 a9 | 28 43 43 24 29 2d 33 29 |=.CC$,(.|(CC$)-3)|
|000063d0| 29 20 70 72 6f 63 5f 66 | 6c 61 67 3d 31 0d 1f 2c |) proc_f|lag=1..,|
|000063e0| 07 20 20 ed 0d 1f 36 06 | 20 cd 0d 1f 40 2c 20 e7 |. ...6.| ...@, .|
|000063f0| 20 70 72 6f 63 5f 66 6c | 61 67 3d 31 20 f2 70 72 | proc_fl|ag=1 .pr|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
